程序設計vb大合集visual教程

1、Visual Basicwww.PLCWindows ?www.PLC Visual Basic VB www.PLCwww.PLCVisual Basic Visual Basicwww.PLCwww.PLCVisual Basic BASIC2060 www.PLC Basicwww.PLCl 1964BASICl 2090VISUALBASIC 1.0l VISUAL BASIC 3.0 l VISUAL BASIC 6.0www.PLCworV isual Basic 6.0Visual Basic/www.PLCVISUALBASIC 1. 2. 3.www.PLC 4. 5.int

2、ernet 6.exewww.PLCVISUAL BASIC 6.01www.PLC2www.PLCVISUAL BASICVisual Basic 6.03 Visual Basic(Learning) Visual Basicwww.PLCw(Professional) Visual Basic(Enterprise)www.PLCVisual Basicwww.PLCVisual Basicwww.PLC Visual Basicwww.PLCwww.PLCl 1., l 2.(form)vb l 3.(code) l 4.(properties)www.PLCw l 5.(projec

3、t expror)l l 6. (toolbox)l ,l 7.l 8.l 9.www.PLCl 1.l 2.www.PLCwor=+ l 3.=+www.PLC庫容, .必容, Vb:情容意容庫必www.PLCwww.PLC情 ,l 把容V激僔www.PLC123423;5)“END”“”www.PLC度容度度容 必容情容www.PLC意容拉容www.PLCVisual Basic 1 2www.PLCwww.PLCwww.PLCwww.PLC2.1 2.1.1 Visual Basic() 20CommandButton TextLabelwww.PLCActiveX .ocx VBDat

4、aList ActiveX Microsoft Excel Microsoft Project www.PLC2.1 l 2.1.2 ActiveX VB ActiveX ActiveX l 2.1.3 ActiveX l 1 ActiveX l 1“”“www.PLCwor”l 2.ocx “” l 2 ActiveX l 1 l 2. “”“”.ocx “”www.PLC2.1 2.1.4 Visual Basic Name 1 2 _ 3 40 2.1.5 TextTextLabel CaptionText1.Text=“Visual Basic ” Text1=“Visual

5、 Basic ” Label1.Caption= “Visual Basic ” Label1 =“Visual Basic ”www.PLC www.PLC2.2 www.PLC 亴click(dblclick(loadwww.PLC2.2 l 2.2.1 l l 1l 2.=www.PLC l label1Caption“VB”Label1.Caption= " VB" www.PLC2.2 l 2.2.2 VB l 1www.PLCwo KeyPressKeyDown KeyUp www.PLC2.2 VBVBVB l _(www.PLC)l SubB

6、 l EndSubl Command1 “”Sub Command1_Clickl PrivateCommand1.Caption= “" l EndSubwww.PLC2.2 l 2.2.3 www.PLC . l Form1.Print"2008"printForm1"2008"www.PLC2.3 必容情容度 “” www.PLCwww.PLC2.3 l l www.PLCl www.PLC2.3 (1) Name (2) Appearance013D (3) AutoRedraw TrueFalse(4) BackCol

7、orForeColorBackColorForeColorwww.PLC www.PLC2.3 l (5)BorderStylel BorderStyle“”4l 0l 1 l 2l 3l (6)Captionwww.PLCl NameName Captionl (7)ClipControlsl Paint www.PLC2.3 l (8)ControlBoxl True FalseMaxButton MinButtonFalsel (9)Enabledl TrueFalsewww.PLCwo TrueFalsel (10)HeightWideLeftTopl HeightWideLeftTo

8、pl (11)Fontl “” www.PLC2.3 l (12)Iconl Icon“”l (13)MaxButtonMinButtonl TruewwFw.PLaCeMaxButtonMinButtonl (14)Picturel Picture “”www.PLC2.3 l (15)Visiblel TrueFalse l (16) WindowsStatel www.PLC0(Normal), 1(Minimized), 2(Maximized),www.PLC2.3 l l 1l VBwww.PLCl (1)Click()DblClick()l Cli

9、ckDblClickl (2)Load()Unload()l LoadUnloadwww.PLC2.3 l (3)Activate()Deactivate()l ActivateDeactivate l (4)QueryUnloadl www.PLCl (5)Resizel www.PLC2.3 l 2l V激l l (1)Showwww.PLCl l .Showl (2)Hidel l . Hidewww.PLC2.3 l (3)Movel l .Movel Private Sub Form1_ClickLeft, Top, Width, Height'Form1Click'

10、l Form1. Movel End SubLeft-10,Top+10,Width-10,Height-1www.PLCl 10Wip , 10Wipwww.PLC2.3 l (4)Clsl l . Clsl (5)Printl l . Print2-2 www.PLC'Form1Clickl Private Sub Form_Click()l Print "2008"l End Subl (6)Refreshl l . Refresh'Form1www.PLC2.3 l 2.3.2 l l l l (1)Namewww.PLCl l (2)Stylel

11、l 0Standardl 1Graphicall (3)Captionl www.PLC2.3 l (4)Enabledl TrueFalsel (5)Defaultl www.PLC“”True“”False“”l (6)Cancell “”True“”False“”www.PLC2.3 l l ClickMouseDownMouseUp ClickMouseDownClickMouseUpClickwww.PLCl 2.1l www.PLC2.3 l l Private Sub Command1_Click () Form1.WindowState = vbMinimize

12、dl End Subl Private Sub Command2_Click()Form1.WindowState = wvwwb.PLCMworld.can ximized l End Subl Private Sub Command3_Click() Form1.WindowState = Normall End Subl Private Sub Command4_Click() Endl End Subwww.PLC2.3 l 2.3.3 l l l (1)Namewww.PLCl Captionl (2)Textl Text www.PLC2.3 l (3)MaxLenghtl 0 l

13、 (4)Alignmentl 012l (5)MultiLinewww.PLCl False Truewww.PLC2.3 l (6)FontNamel FontNameFontSize FontItalic FontUnderline 01FontBold 20www.PLCl (7)ScrollBarsl 4l 0l 1l 2l 3l MultiLineTrueScrollBarswww.PLC2.3 l (8)Lockedl True False l (9)PasswordCharl www.PLC Text1PasswordChar“*”Text1“*”www.PLC2.3 l (10

14、)SelStartSelLengthSelTextl l SelStart0 l SelLengthwww.PLCl SelTextl SelStartSelLengthVB SelText www.PLC2.3 2.2“1234” Private Sub Command1_Click()' Command1Click ' Text1Pass = Text1.Text passIf Pass = "1234" Then' pass"1234"' Label2.Caption = " "Elsewww.P

15、LCLabel2.Caption = "" End IfEnd Subwww.PLC2.3 l ChangeKeyPressLostFocusGotFocusl (1)Change Textwww.PLCText Change“hello”5Changel (2)KeyPress KeyPressKeyAscii www.PLC2.3 l (3) LostFocusTab LostFocus l (4)GotFocuswww.PLCLostFocus www.PLC2.3 l 而et環(huán)o速us立集速齡osoft 菜集高重ows啐仈仈哪器“www.PLCwor

16、”l SetFocus. SetFocus l CheckBoxCommandButtonListBoxwww.PLC2.3 l 2.3.4 Captionwww.PLC www.PLC2.3 l l l (1)Namel l (2)Captionwww.PLCl l (3)BorderStylel 01 l (4)AutoSizel True Falsewww.PLC2.3 l (5)Alignmentl 01l (6)WordWrapl l (7)Topwww.PLCl l (8)Leftl l (9)BackColorl l (10)ForeColorl www.PLC2.3

17、l 2ClickDblClickChange www.PLC www.PLC2.4 l VB4 l 2.3l (1)23 www.PLC1www.PLC2.4 l (3)l Private Sub Command1_Click(2) Dim a IntegerAsInteger,b As a = Text1. Text b = Text2. TextText3. Text = a + bLC l End Subl (4)www.PLCLabel1Caption+Label2Captionwww.P=Text1TextText2TextText3TextCommand1Caption VB Cl

18、ickLoadUnload Textwww.PLC www.PLCVBwww.PLCwww.PLCV量www.PLCwww.PLCl VB www.PLC VB www.PLCVB www.PLC 的高t金錢金齡動集高t必姓情必操 方情必操 操種o高錢雙首高錢意姓必度意操意方情 意方必度意操意方情 意操聯(lián)集高錢首金仍s高錢意姓情容意嵌必方必情狀情方度容意嵌度必曉方狀姓意拉度容意嵌度必曉方狀姓意拉情容意嵌必方必情狀情方然ou過首金儲G過首方姓度容操曉操 曉情度情意方 必情必然情嵌方 姓意容曉意嵌 拉 意拉方意度必意操然姓情必意意容曉意嵌 拉 意拉方意度必意操然姓情必意 度容操曉操 曉情度情意方 必情必然情嵌方點u齡齡金高那yww消w.PLC那u齡方姓曉必必情情操必嵌情 方拉意操操容拉方嵌方 曉必必情情操必嵌情 方拉意操操容拉方嵌操濾yt金過yt度嵌必拉拉然at金唯t集m金器Gtm方嵌度始嵌度始度嵌嵌度必始情度始曉曉曉曉唯嵌嵌果嵌嵌果嵌嵌必情果拉曉果拉曉器濾oo首金a高過首高必能齡u金環(huán)a首s金聯(lián)t齡集高錢準st齡嵌 拉拉情拉糊過面金那to過面意獲a齡集a高tv高t 唯器度容的高t金齡錢金齡 www.PLC姓情必操 方情必操 操必獲濾動姓情意操方動必容種o高錢姓情必操 方情必操 操 意情 曉姓情