Algorithm registrar writing literacy - fifth lesson
Original author: I want to [DFCG]
============================================================================================================================================================================================================= ================================
Note: I will come to the fourth lesson, I am coming again, I haven't seen more than a long time. Come! Then come back. ^ _ ^
This course is written
I have five lessons, I can finally make a summary or yes! how,
It is especially true? No, I want [DFCG] can't do anything, just put some individual's so-called experience or experience,
I am cool! Brick, curtor, stinky egg, throw it! Don't say anything, I have to go back, don't rush, can't do it, I halo ~~~~~~~~~
============================================================================================================================================================================================================= ================================
First, what should I say? Really a little dizzy, in the middle level, the saying
It seems to say it! What else is good, think about ~~~
Second, give some methods of learning! Try more
Isn't it? Still what happened? Yes, still sit down and read this fifth lesson!
Three, learning
Self-writing a program belonging to you, look at the source code:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Form_Mousemove (Button As Integer, Shift As Integer, x as single, y as single)
Label1.Forecolor = & HFF0000Label1.FontSize = 9
Label2.Forecolor = & HFF0000
Label2.fontsize = 9
End Sub
Private Sub Label1_Mousemove (Button As Integer, Shift As Integer, x as single, y as single)
Label1.FontSize = 10
Label1.Forecolor = & HC0 &
End Sub
Private Sub Label2_Mousemove (Button As Integer, Shift As Integer, x as single, y as single)
Label2.fontsize = 10
Label2.Forecolor = & HC0 &
End Sub
Private sub label1_click ()
Shellexecute 0, "Open", "http://218.63.244.68:1010/ckd/index.php", vbnullstring, vbnullstring, 0
End Sub
Private sub label2_click ()
Shellexecute 0, "Open", "http://dfcg.con.cn/", vbnullstring, vbnullstring, 0
End Sub
Fourth, the above words, if you make the webpage, you will understand the little point, you can't understand it? Nothing, copy it
Paste, you will never don't come! Ok, because there is a good source code on the Internet, so this time I will go up the source code and then tell the whole frame. Look in the source code, I don't know why, the key, you have to look at the source code to write an executable program, I made a few extraordinary explanations:
Private sub label1_click () ← This label1 is it? I know that it can apply the source code.
Shellexecute 0, "Open", "http://218.63.244.68:1010/ckd/index.php", vbnullstring, vbnullstring, 0
End Sub
Private sub label2_click () ← Toolbox (left vertical box) has a capital letter A, that is, it
Shellexecute 0, "Open", "http://dfcg.con.cn/", vbnullstring, vbnullstring, 0
End Sub
5. Now you open VB6, create a new execution file template, good, the cursor point looks on the upper writing A letter, then return to the template to pull out a frame, huh, what you see, "label1" It is it, because the source code is written like this! ^ _ ^
Six, repeat the fifth step, you pull out a "label2", enough, the source code is 2, you can use this source to make more links. This example is more than two, etc., it is equal to whether it is violating the source code, ha, you must have no fruit to eat.
Seven, now to the attribute window, is the middle box on the right. Scroll
Pulling "caption", look to the right, Label1 is there, know how to do it! Yes, change it, let it display the information you want, take this source as an example, here is "DFCG Official Forum", back template to see, have been rewritten, the cursor is placed Label2, the same operation, rewrite as "DFCG Short domain name. Well, it's almost successful, you now use your aesthetic vision, go to your template, add pictures, change the appearance of the template, don't worry, slow, you will design a good look. of.
8. Finally, use the above method, pull out a label3, useful? Yes, you can write something you want to write, such as "I love you, DFCG!" ^ _ ^
Nine, good, now you have to use the source code to copy the paste, import the original code into the template, will not do this? Oh, reading is not a job, look back by the first lesson!
Ten, um! Are done it, sit down,
Pumper with smoke. Yes, I have every step
Do it, what, come, click, point toolbar, file → drop-down menu point "generation project 1.exe". When you come up with an executable of the project 1, double click to run it, ha, your design is perfect? Whether, click on the "DFCG Official Forum", Oh, the open page is the DFCG official forum, then "DFCG short domain name", open the DFCG official forum. Success, this is successful, after you will change the link to the link to you want to go. & _ ^
Eleven, I said the boss, I am a URL one is a mailbox, you can't do this?
Yes, how to rewrite the source code to achieve the purpose? Hey, I will have a cup of tea first. Come, look at:
Private sub label1_click ()
Shellexecute 0, "Open", "http://218.63.244.68:1010/ckd/index.php", vbnullstring, vbnullstring, 0
End Sub
Private sub label2_click ()
Shellexecute 0, "Open", "Mailto: Bobyhua@163.com", VBnullString, VBnullString, 0
End Sub
Twelve, oh, understand, there are not many changes, what to sell, bricks, cooked matters, stinky egg ~~~~~~
Thirteen, you confirm that you have successfully generated the executable you want! Then come back, come back
Fun
east. No, I haven't done it yet, dizzy, look back, I am successful, I don't believe it? I pass two up to you to play. ^ _ ^
Fourteen, continue, or
Teach the transfiguration because you are already intermediate, look at the source code:
Dim a as string
Dim t as string
DIM B AS INTEGER
DIM I as integer
Private submmand1_click ()
Checkagain
End Sub
PRIVATE SUB FORM_LOAD () Checkagain
End Sub
Private sub timer1_timer ()
T = Left (a, b)
Form1.caption = t
B = B 1
IF B> I THEN B = 0
End Sub
Sub Checkagain ()
a = text1.text
I = le (a)
B = 0
End Sub
Fifteen, look at the right, understand, this east
I only need to use a button for Command1,
A control Timer1, then a text box text1, can't see it? Go back to see the course in front. Let's take this below.
Source code!
16. Now you open VB6, create a new execution file template, good, cursor points "textbox", then return to the template to pull out a text box text1, go to the toolbox, click "CommandButton",
And go back to the template to pull out a button Command1, or the same way,
Put the control Timer1. Ok, now this frame is ok, you have to use your aesthetic vision, design a happy I am satisfied.
Live! (Button Command1 can be renamed "Rescan")
Seventest, now to the attribute window, is the middle box on the right. Scroll
Pulling "Text", um, "I want" said, here can change it to the desired information, I will write "I love DFCG, DFCG is my home!". A little meat ~~~
Don't, who's shoes fly over ~~~~
Eighteen, now you have to put the source code to paste the way, import the original code into the template, or not do it? Oh, students don't have to work, the teacher's sin! But you
It seems that I should learn from my head? ! Think or your fault, hehe! @ _ @
19, come, point toolbar, file → drop-down menu "generation project 1.exe". Get, go out of a project 1 executable, double click to run it, the text in the title bar of the execution file is flow, cool ~~~~, see "I love DFCG, DFCG is my home!", A bit intimate ~~~~~
Twenty, I kick, I don't want to see this, I want to see it, "I want to kick me.
Cool ^ _ ^ "this information,
No, this is all, I can't, teach this step, I don't say you will, the text box is written ", I'm going to cool."
Cool ^ _ ^ ", click on the button, this is it, but I am crying you know?
You are playing teachers! & _ &
Twenty-one, still don't, I
The net name is "I want", that's good, come back a source, but just the source, you can make an executable to see what is east
East. Signal review! look down:
Private submmand1_click ()
Gotoval = me.height / 2
For gointo = 1 to gotoval
Doevents
Me.height = me.height - 10
If me.height <= 11 THEN GOTO HORZ
Next Gointohorz:
Me.height = 30
Gotoval = me.width / 2
For gointo = 1 to gotoval
Doevents
Me.width = me.width - 10
IF me.width <= 11 THEN END
Next Gointo
End
End Sub
Twenty-two, good, final
After writing five lessons! Sentimentary time is due to internal problems and year-on-year private affairs, busy an unknown, now forum
The heavy frame is successful, the Spring Festival has passed. Time is a bit loose, I have finished writing this fifth lesson, tired, brothers, this article, I want [DFCG], please support DFCG in the future, publicize the DFCG on the Internet, it is for me
The best return of Lai! ^ _ ^
Twenty-two, this original author - I want [DFCG], copyright is not, human rights I have,
Therefore, the friends and friends of the friends who turn this post and friends will note that this article is from DFCG organization and I want [DFCG] original as a prerequisite, otherwise thank you for reprint. On the Internet, but not there is no one to see! Thank you for reading!
I want [DFCG] to be written in 2004.2.04
