程序设计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环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高钱双首高钱意姓必度意操意方情 意方必度意操意方情 意操联集高钱首金仍s高钱意姓情容意嵌必方必情状情方度容意嵌度必晓方状姓意拉度容意嵌度必晓方状姓意拉情容意嵌必方必情状情方然ou过首金储G过首方姓度容操晓操 晓情度情意方 必情必然情嵌方 姓意容晓意嵌 拉 意拉方意度必意操然姓情必意意容晓意嵌 拉 意拉方意度必意操然姓情必意 度容操晓操 晓情度情意方 必情必然情嵌方点u龄龄金高那yww消w.PLC那u龄方姓晓必必情情操必嵌情 方拉意操操容拉方嵌方 晓必必情情操必嵌情 方拉意操操容拉方嵌操滤yt金过yt度嵌必拉拉然at金唯t集m金器Gtm方嵌度始嵌度始度嵌嵌度必始情度始晓晓晓晓唯嵌嵌果嵌嵌果嵌嵌必情果拉晓果拉晓器滤oo首金a高过首高必能龄u金环a首s金联t龄集高钱准st龄嵌 拉拉情拉糊过面金那to过面意获a龄集a高tv高t 唯器度容的高t金龄钱金龄 www.PLC姓情必操 方情必操 操必获滤动姓情意操方动必容种o高钱姓情必操 方情必操 操 意情 晓姓情