untitled

Transcription

1 Visual Basic 6.0

2 Visual Basic 6.0 / ISBN I. V II. III. BASIC IV. TP312 CIP (2002) Visual Basic Microsoft 14 1~6 Visual Basic 7~14 Internet Windows API ActiveX Visual Basic Visual Basic @ptpress.com.cn / ISBN

3 Visual Basic Visual Basic Internet Visual Basic Visual Basic Basic Visual Basic VB Visual Basic Internet Windows API ActiveX

4 1 Visual Basic Visual Basic Visual Basic Visual Basic Visual Basic Visual Basic Visual Basic Visual Basic Visual Basic

5 Function Visual Basic CommandButton Label TextBox Tab Visual Basic

6 ToolBar ImageList Visual Basic Visual Basic Visual Basic Label Textbox Label TextBox (CommandButton ) CommandButton CheckBox OptionButton ListBox ComboBox PictureBox Image Line

7 5.5.4 Shape Scrollbar ( DriveListBox ) ( DirListBox ) ( FileListBox ) Line Circle

8 Err Data Access SQL ADO ADO ActiveX ADO ActiveMovie MCI WAV MP AVI CD

9 Internet Internet TCP/IP Internet TCP/IP Winsock Winsock Winsock HTML Windows API Windows API API Visual Basic API Visual Basic API API VB ActiveX ActiveX ActiveX ActiveX ActiveX Visual Basic Microsoft Word ActiveX ActiveX ActiveX ActiveX ActiveX ActiveX ActiveX ActiveX ActiveX ActiveX

10 ActiveX ActiveX ActiveX

11 1 Visual Basic QQ Visual Basic Visual Basic 1.1 Visual Basic Visual Basic Visual GUI Basic Visual Basic Visual Basic Windows Visual Basic Method Basic BASIC Visual Basic BASIC Visual Basic Visual Basic 3

12 Visual Basic Windows 9x Windows NT 2. ActiveX Internet Information Server Application Designer Visual Database Tools DataEnvironment Active Data Objects Dynamic HTML Page Designer 3. Back Office SQL Server Microsoft Transaction Server Internet Information Server VisualSourceSafe SNA Server 1.2 Visual Basic Visual Basic 1. Visual Basic DX/66MHz Pentium 2. Windows 9x Visual Basic MB Windows NT 32MB 3. Visual Basic Windows 9x Windows NT Visual Basic Visual Basic 1 Visual Basic Setup.exe 1-1 2

13 1 Visual Basic 1-1 Visual Basic ID 1-3 3

14 Visual Basic ID Visual Basic

15 1 Visual Basic Visual Basic 6.0 Visual Basic 6.0 Visual Basic Microsoft Visual Basic 6.0 Microsoft Visual Basic ActiveX Microsoft Visual SourceSafe 6.0 VSS VSS Web VSS VSS 5

16 Visual Basic 6.0 ActiveX ActiveX Application Performance Explorer Visual Component Manager Repository Visual Modeler Remote Data Objects Connection Designer Automation Manager MS info API Viewer 1-7 Microsoft Visual Basic Visual Basic Visual Basic Visual Basic

17 1 Visual Basic 1-8 Visual Basic Visual Basic Visual Basic EXE Visual Basic Visual Basic Visual Basic 7

18 Visual Basic Visual Basic Visual Basic Visual Basic

19 1 Visual Basic Form1 Form1 SQL 1.exe.exe 9

20 Visual Basic 6.0 MDI Web Class Web Class ActiveX ActiveX Form1 ActiveX 1 10

21 1 Visual Basic Visual Basic 11

22 Visual Basic Visual Basic Visual Basic

23 1 Visual Basic Visual Basic Visual Basic Hello World Visual Basic Visual Basic Hello, World C Pascal Hello, World Hello, World Visual Basic Hello, World 1 CommandButton 13

24 Visual Basic 6.0 Command1 TextBox Hello, World Hello, World Command1 Text1 Visual Basic 1-12 Visual Basic F

25 1 Visual Basic 1-2 Caption Hello, World Text Caption Hello, World 1 Form1 2 3 Caption Caption Caption Command1 4 Command1 Hello, World Enter Hello, World Visual Basic Visual Basic 15

26 Visual Basic 6.0 Visual Basic Hello World Hello World Private Sub Command1_Click() End Sub Text1.Text = "Hello, World" Private Sub Command1_Click() Text1.Text = "Hello, World" End Sub Text1 Text Hello, World Hello, World Text1 Text. Text Text1 Text Text1 Text1 Text2 Text Text1.Text Text2.Text Text1.Text = "Hello, World" Private Sub Command1_Click() 16

27 1 Visual Basic F5 Visual Basic Hello World 1 2 Visual Basic Windows Windows Visual Basic 1-18 F

28 Visual Basic Visual Basic Ctrl+S Visual Basic Hello World Visual Basic 1-3 Form1.frm 1.vbp 1.vbw 1-3.frx.abs Visual Basic EXE Hello, World 1 1.exe... Visual Basic D:\MyProgram\Hello World 2 Visual Basic D:\MyProgram Hello World.exe Hello World.exe Hello World 1.5 Visual Basic Visual Basic Visual Basic 6.0 Windows Visual Basic F1 F1 Visual Basic

29 1 Visual Basic Visual Basic Visual Basic MSDN Pictureb MSDN PictureBox Pictureb 19

30 Visual Basic Visual Studio Visual Studio.NET.NET Visual Studio.NET Visual Studio 6.0 Visual Studio 6.0 VS 6.0 Visual Studio 6.0 Visual Studio 6.0 Visual Studio 6.0.NET 1.7 Visual Basic Visual Basic Hello World Visual Basic Visual Basic Visual Basic 20

31 2 Visual Basic Visual Basic Visual Basic Visual Basic Visual Basic Visual Basic 2.1 Visual Basic Visual Basic Visual Basic Visual Basic ' ' Visual Basic Number = 0 ' Number 0 If Check = Then Number = Number + 1 ' Check Number 1 End If Rem ' Rem Visual Basic

32 Visual Basic 6.0 _ If If x > 0 And y > 0 And z > 0 And z < x + y Then Number = Number+ 1 End If If x > 0 And y > 0 And z > 0 _ And z < x + y Then Number = Number + 1 End If & str = "This is a very long sentence. " str = "This is a very " & _ "long sentence. " x = 1: y = 2: z = 3 x = 1 y = 2 z = Visual Basic Visual Basic Visual Basic strtitle intsum a b c

33 2 Visual Basic 2.2 Pi Pi Pi R R R Visual Basic Visual Basic E D E D " a string" " abc123" (Boolean) 4 Date #mm-dd-yy# # #

34 Visual Basic Public Private Const As = Public Const PI = Public Const R = 10 Public Const S = PI*R*R Private Birthday As Date = # # Visual Basic BookPrice BookCount TotalSale Dim BookPrice As Double ' BookPrice Dim BookCount As Integer ' BookCount Dim TotalSale As Double ' TotalSale BookPrice = 20.0 ' 20 BookCount = 100 ' 100 TotalSale = BookPrice * BookCount ' 1. Room1 Number_1 Count 9abc _count #adc Visual Basic 26 _ Count123 Width_123 a001 Visual Basic Visual Basic If Sub While Function Integer Visual Basic Visual Basic 24

35 2 Visual Basic Dim Dim [ As ] As Dim BookPrice As Double Dim Visual Basic BookPrice As Double BookPrice 20 BookPrice = 20.0 Visual Basic Visual Basic Visual Basic Option Explicit Visual Basic 3. Private Private Dim Public Public 25

36 Visual Basic Dim Private Static Dim Private Visual Basic Static Static Dim Dim Static Static Static Sub MySub() ' End Sub MySub Static Dim Private Variant Variant Variant Visual Basic Visual Basic 1. Numeric Visual Basic Byte Integer Long Currency Single Double 2-1 Byte 0 ~ Integer ~

37 2 Visual Basic Long ~ Currency Single Double E-45 ~ E E38 ~ E D-324 ~ 1.798D D308 ~ D Boolean String 0~255 Visual Basic Dim str As String str = "Visual Basic" str = Left(str, 6) & Right(str, 6) & " 6.0" Print str Visual Basic 6.0 Left(str,n) Right(str,n) str n Visual Basic Dim As String * Visual Basic Visual Basic Visual Basic Trim LTrim RTirm 4. (Date) Visual Basic Date Date :00:00 23:59: DateVar

38 Visual Basic 6.0 Dim DateVar As Date DateVar = #12/20/1999 7:30:00 AM# DateVar = # :30:00# DateVar = # :30:00# DateVar = #Dec :30:00# ' DateVar Date 'Visual Basic 'Visual Basic 'Visual Basic 'Visual Basic Date # Visual Basic 5. Object Object 32 Set 2 1 Caption Project Standard.exe Form1 CommandBotton 2-1 Command2 Command2 Command2_Click() Command1 Set objvar = Command1 objvar 1 objvar 1 Object Set 6. Variant Visual Basic Variant Variant Dim var1 ' var1 Variant var1 = "10" 'var1 var1 = var1 3 'var1 3 var1 7 var1 = var1 & "eleven" 'Visual Basic 7 "eleven" var1 Print var1 ' 7eleven 28

39 2 Visual Basic Variant Visual Basic & + Variant 3 Empty Null Error Empty Variant Empty Empty Variant Empty Variant Empty IsEmpty( ) Null Null Variant Null Null Null Null Variant Null IsNull( ) Error Variant Error Error 7. Visual Basic 2-2 Cbyte CInt CLong CCur CSng CDbl Byte Integer Long Currency Single Double Cbool CDate CStr CVar CVErr Boolean Date String Variant Error Visual Basic 29

40 Visual Basic Dim ( ) [ As ] Dim ( To ) [ As ] Dim Dim Static Private Public A 0 10 B 5 20 C 10 Public C(1 To 20) ' Dim A(10) As String ' Dim B(10) As Integer ' A(0) = "10" ' A 0 B(5) = 20 ' B 5 ' A 0 B 5 'Visual Basic A(0) B(5) C(10) C(10) = A(0) + B(5) Print C(10) ' 30 A B A C 1 20 C C 2. Visual Basic Dim ( ) [ As ] Dim Static Public Private ReDim ReDim ReDim To 30

41 2 Visual Basic ReDim ReDim Variant Empty Numeric 0 String Boolean Preserve ReDim Preserve ReDim Preserve To 1 50 A 1 50 A(23) Dim A () ' A Dim Index As Integer ' For ReDim A (1 To 50 ) For Index = 11 To 50 A (Index) = Index Next ' A 1 50 'For ' ReDim Preserve A (1 To 100) ' A Print A (23) ' A(23) 23 For Next Visual Basic Dim ( ) ( ) [ As ] Dim ( To ) ( To ) [ As ] n Dim ( ) [ As ] ReDim ( 1 2 n ) 31

42 Visual Basic Visual Basic 1. x = x + 1 'x 1 y = y 1 'y 1 var1 = var1 3 'var1 3 var1 A(0) = "10" ' A 0 Command1.Caption =" 1" ' Command1 Caption = 2. Print Print [, ] [, ] Print Command1.Caption, Command1.Width, Command1.Height Visual Basic * 32

43 2 Visual Basic / \ Mod ^ (1+100)*100\2 b*b 4*a*c 4*PI*R*R 2. Visual Basic 2-4 = > < <> >= <= 1<=2 ' "x"="y" ' 3. Visual Basic 2-5 Not And Or Xor Imp 33

44 Visual Basic 6.0 (1<2) And (100=100) ' a=10 : b=100 (a>=10) Imp (b<100) ' Visual Basic If Then If Then Else Select Case 1. If Then If Then If Then 1 2 n End If If ( temperature<= 0 ) Then Print " " 2. If Then Else If Then If 1 Then [ ElseIf 2 Then 2 ] [ ElseIf n Then 34

45 2 Visual Basic n ] End If If ( year Mod 4 <> 0 ) Then Print " " ElseIf ( year Mod 100 <>0 ) Print " " ElseIf ( year Mod 400 = 0 ) Print " " Else Print " " EndIf ' 4 ' ' ' 3. Select Case If Visual Basic Select Case Select Case Case 1 1 Case 2 2 Case n-1 n-1 Case Else n End Select Dim hour As Integer Select Case hour Case hour >= 18 Print "! " Case hour >= 14 Print "! " Case hour >= 12 Print "! " Case hour >= 6 Print "! " Case Else Print "! " 35

46 Visual Basic 6.0 End Select Visual Basic 3 Do Loop For Next For Each Next Do Loop Do Loop Do [While condition] [statements] Loop While condition condition statements 1 2 statements n>100 n Dim n As Integer Dim Sum As Integer n = 0 : Sum = 0 Do While Sum<=100 Loop ' n ' Sum ' ' Sum 100 n = n + 1 ' 1 Sum = Sum + n Print "n =", n ' ' ' n n = 14 Do [statements] Loop [While condition] Statements 1 Statements

47 2 Visual Basic 2 3 statements Dim n As Integer ' n Dim Sum As Integer ' Sum n = 0 : Sum = 0 ' Do ' n = n + 1 ' 1 Sum = Sum + n ' Loop While Sum<=100 ' Sum 100 Print "n =", n ' n n = For Next For counter = start To end [ Step increment ] Next [Counter] Counter start end increment counter start end increment 1 For Next 1 counter start 2 counter end 3 4 counter 1 increment Dim Sum As Integer ' Sum Dim Index As integer ' Index Sum = 0 ' Sum 0 For Index = 1 To 10 ' Print Index ' Sum = Sum + Index ' Next ' Print Sum ' 37

48 Visual Basic Visual Basic 3*3 n*n Dim Matrix() As Integer ' Matrix Dim Index1 As Integer, Index2 As Integer ' Dim Max As Integer, Min As Integer ' ReDim Matrix(3, 3) ' Matrix(0, 0) = 10: Matrix(1, 0) = 45: Matrix(2, 0) = 27 ' Matrix(0, 1) = 5: Matrix(1, 1) = 56: Matrix(2, 1) = 13 ' Matrix(0, 2) = 18: Matrix(1, 2) = 85: Matrix(2, 2) = 73 ' Max = Matrix(0,0) : Min = Matrix(0,0) ' For Index1 = 0 To 2 For Index2 = 0 To 2 If Matrix(Index2, Index1) > Max Then Max = Matrix(Index2, Index1) End If If Matrix(Index2, Index1) < Min Then Min = Matrix(Index2, Index1) End If Next Next Print Min, Max 5 85 ' ' ' ' ' ' ' ' ' 2. Visual Basic Exit For Do Visual Basic Exit Exit For For Next Exit For 38

49 2 Visual Basic For counter = start To end [ Step increment ] [ statements ] [ Exit For ] [ statements ] Next Dim Index As Integer ' For Index = 1 To 10 ' 1 10 If Index>5 Then Exit For ' Index 6 Print Index ' Index Next ' Exit Do Do While Do [{While Until} condition] [statements] [Exit Do] [statements] Loop Do [statements] [Exit Do] [statements] Loop [{While Until} condition]

50 Visual Basic 6.0 Visual Basic Sub Function Sub 1. Sub [Public Private] [Static] Sub name [(arglist)] [statements] [Exit Sub] [statements] End Sub arglist [ByVal ByRef] varname[( )] 1 Sub, 2 Public 3 Private 4 Static 5 name arglist 7 Exit Sub 8 Statements 9 End Sub 1 ByVal Passed by value 2 ByRef Passed by value 3 2. Sub a b c x1,x2 delta=b*b-4*a*c 40

51 2 Visual Basic Public Sub Equation(ByVal a As Double, ByVal b As Double, ByVal c As Double) ' Dim x1 As Double, x2 As Double ' Dim delta As Double ' delta delta = b * b 4 * a * c ' delta If a<>0 Then ' 0 If delta < 0 Then ' delta 0 Print " " 'delta<0 Else x1 = (-b + Sqr(delta)) / (2*a) ' x2 = (-b Sqr(delta)) / (2*a) ' Print "x1=",x1, "x2=",x2 ' End If ElseIf b<>0 Then ' a=0 b 0 x1 = c / b 'b<>0 Print " x=", x1 Else If c<>0 Then 'a=b=0 c<>0 Print " " Else 'a=b=c=0 Print " x=0" End If End If End Sub 3. Sub Sub Visual Basic Sub EXE 2-3 " 2-4 Equation

52 Visual Basic Sub CommandButton Command1_Click() Command1_Click() Equation() Private Sub Command1_Click() Call Equation(1, -7, 12) ' x^2-7x+12=0 1 Call Equation 1, -5, 6 ' x^2-5x+6 =0 2 End Sub 42

53 2 Visual Basic Function 1. Function [Public Private] [Static] Function name [(arglist)] [ As ] [statements] [Exit Sub] [statements] End Function arglist [ByVal ByRef] varname[( )] 43

54 Visual Basic Function 2 [As 3 Public, Private Static Sub 4 arglist 5 Exit Function 6 Statements 7 End Function 8 Sub 2. Function Public Function FarToCel(ByVal temp As Double) As Double ' ByVal FarToCel = (temp 32)*5/9 ' End Function ' 3. Function Function Visual Basic Function Function EXE FarToCel

55 2 Visual Basic Function 1 Function CommandButton Command1_Click() Command1_Click() FarToCel() Private Sub Command1_Click() Dim Result As Double Result = FarToCel(100) Print Result End Sub Visual Basic 45

56 Visual Basic 6.0 Visual Basic Visual Basic 2-12 F

57 2 Visual Basic Visual Basic Visual Basic Visual Basic 1. con _ Const SIZE = 1024 Const CIRCLE_RADIUS = 10 Const conpi = Visual Basic 2-6 Boolean Bln blncheck Byte Byt bytsign Integer Int intinput Long Lng lngtotal Single Sng SngReturn Currency Cur cursalary Double Dbl dblresult Object Obj objcurrent Date (Time) Dtm dtmbirth Error Err errstandard String Str strtitle

58 Visual Basic 6.0 G gintcounter M mblncheck dblresult D Panel Animated button Check box Combo box Command button Common dialog Communications Control Data control Data-boundcombo box Data-bound grid Data-bound list box Directory list box Drive list box File list box Form Frame Gauge Graph Grid Horizontalscroll bar Image Key status Label Line List box MAPI message MAPI session MCI MDI child form Menu pnl ani chk cbo cmd dlg com ctr dat dbcbo dbgrd dblst dir drv fil frm fra gau gra grd hsb img key lbl lin lst mpm mps mci mdi mnu 48

59 2 Visual Basic MS Flex grid msg MS Tab mst OLE ole Outline out Pen BEdit bed Pen HEdit hed Pen ink ink Picture pic Picture clip clp Report rpt Shape shp Spin spn Text box txt (DAO) 2-9 Container con Database db DBEngine dbe Document doc Field fld Group grp Index idx Parameter prm QueryDef qry Recordset rec Relation rel TableDef tbd User usr Workspace wsp 2-10 File Open File Send File Send Fax Format Character Help Contents mnufileopen mnufilesend mnufilesendfax mnuformatcharacter MnuHelpContents 49

60 Visual Basic Visual Basic Visual Basic Visual Basic Visual Basic Visual Basic Visual Basic 50

61 3 Visual Basic 3.1 GUI Visual Basic Visual Basic Visual Basic Visual Basic

62 Visual Basic Windows 3-2 Name Caption Backcolor Borderstyle F4 Visual Basic Visual Basic

63 3 Visual Basic Form2 Caption MaxButton MinButton F1 1. Caption Windows Visual Basic Caption Caption Form1 Visual Basic EXE Caption

64 Visual Basic Caption Caption 2. Visual Basic 3. Left Top Left Top Left Top 4. Height Width Left Top 5. BackColor ForeColor FillColor BorderColor ForeColor FillColor BorderColor 6. Font Font

65 3 Visual Basic Visible Visible False Visible Visual Basic 3.2 Visual Basic CommandButoon Label TextBox CommandButton Windows click 55

66 Visual Basic 6.0 CommandButton Command Caption Caption & ALT CmdExit Caption 3-6 Visual Basic Private Sub Form_Load() CmdExit.Caption = " " End Sub Caption Command1 Default Cancel Default True False Default True Cancle True ENTER Default True ESC Cancel True CmdExit Default Cancel True 3-6 Private Sub CmdExit_Click() Unload Me End Sub F5 56

67 3 Visual Basic Click Unload Me Label TextBox Visual Basic Visual Basic Label Caption TextBox ComboBox 1024 Label 3-1 BackColor BorderStyle Caption ForeColor Font Left Top Height Width AutoSize WordWrap True WordWrap AutoSize True Label Label TextBox TextBox 3-2 Text MultiLine ScrollBars Locked False True Fasle True 57

68 Visual Basic 6.0 Label TextBox Label 3-7 TextBox Label Command1 Command Label Caption TextBox Command1 Command2 Text Caption= Enabled=False = CmdReversion Caption= = CmdClear Label TextBox Command1 Enabled False F Visual Basic

69 3 Visual Basic General Dim StoreString As String ' Visual Basic Click Private Sub CmdReversion_Click() Text1.Text = StoreString CmdReversion.Enabled = False End Sub Click Private Sub CmdClear_Click() StoreString = Text1.Text Text1.Text = ""' CmdReversion.Enabled = True End Sub Visual Basic Windows 59

70 Visual Basic 6.0 Windows TextBox TextBox TextBox GotFocus LostFocus 1. GotFocus 2. LostFocus LostFocus SetFocus Enabled Visible True Enabled Enabled False Visible Frame Image Label Line Shape 3.4 Tab Click 60

71 3 Visual Basic Windows TAB TextBox Text1 Text2 F5 Text1 TAB Text2 TAB TAB TabIndex TabIndex TAB Visual Basic TabIndex 0 TabIndex 1 TAB Visual Basic TAB TabIndex 0 TAB 1 TabIndex Visual Basic TabIndex TAB TAB TAB TAB TAB TabStop False(0) TAB TabStop False TAB TAB Pascal C MouseMove 1. Load Unload Paint Paint 61

72 Visual Basic 6.0 Resize Resize 2. Focus GotFocus LostFocus Focus GotFocus LostFocus 3. Click DbClick MouseDown MouseUp / MouseMove DragDrop MouseDown MouseMove MouseUp DragOver DragOver 4. KeyDown KeyUp / KeyPress 5. Change Change TextBox DropDown ComboBox PathChange FileBox 6. Timer Visual Basic Click 1 Code Code 62

73 3 Visual Basic 3-11 Visual Basic Visual Basic Visual Basic Windows Windows Windows Windows Windows Windows Windows Windows Microsoft Windows hwnd 63

74 Visual Basic 6.0 Visual Basic Visual Basic Visual Basic Windows Visual Basic Visual Basic Visual Basic Visual Basic Visual Basic Visual Basic Shepp.Color = White Shepp.Name = XiaoBai Shepp Color. Color Shepp Shepp.Run 64

75 3 Visual Basic Shepp.GetSomething. Change Change Visual Basic Visual Basic Click MouseDown MouseUp Visual Basic Visual Basic Click Click Click Load DblClick MouseDown MouseUp Click 65

76 Visual Basic Visual Basic Visual Basic Visual Basic 1. DLL 2. Sub Function Property FRM Visual Basic Microsoft Visual Basic Visual Basic QuickBasic Visual Basic Visual Basic Windows BAS 66

77 3 Visual Basic Visual Basic.CLS Visual Basic Windows Visual Basic

78 Visual Basic F7 Visual Basic Visual Basic Visual Basic 3-12 Command1 Command1_Click() PgUp PgDn

79 3 Visual Basic Visual Basic Visual Basic 3-15 Tab 3-15 CTRL +J 3-16 Visual Basic CTRL+I

80 Visual Basic Visual Basic Visual Basic 3.9 Visual Basic

81 3 Visual Basic Label 1 TextBox Form1 Label1 Label2 = FormGame Caption Math Game = LabNum1 Alignment= 2 - Center Caption Font = Arial = 48 = LabOp1 Alignment= 2 - Center Caption + Font = Arial = 48 71

82 Visual Basic 6.0 Label4 Text1 = LabOp2 Alignment= 2 - Center Caption = Font = Arial = 48 Caption = Font = Arial = 48 = TxtAnswer Text Font = Arial = 48 Label5 Label6 Label7 Command1 Command2 = LabMessage Alignment= 2 - Center BackColor= &H00C0FFFF& BorderStyle= 1-Fixed Single Caption Font = = = Alignment= 2 - Center Caption Font = = LabScore Alignment= 2 - Center BackColor= &H0080FF80& BorderStyle= 1-Fixed Single Caption Font = = = = CmdNext Caption= = CmdExit Caption=

83 3 Visual Basic 3-19 Math Game General Dim Sum As Integer ' Dim NumProb As Integer ' Dim NumRight As Integer ' Math Game Form_Load Private Sub Form_Load() Randomize Timer ' Rnd Rnd ' NumProb = 0 ' 0 NumRight = 0 ' 0 End Sub Form_Activate Private Sub Form_Activate() Call CmdNext_Click 73

84 Visual Basic 6.0 ' CmdNext_Click End Sub CmdNext_Click Form_Activate CmdNext_Click Private Sub CmdNext_Click() ' Dim Number1 As Integer ' Dim Number2 As Integer ' TxtAnswer.Text = "" ' TxtAnswer LabMessage.Caption = "" ' LabMessage NumProb = NumProb + 1 ' Number1 = Int(Rnd * 100) ' Number2 = Int(Rnd * 100) ' LabNum1.Caption = Format(Number1, "#0") ' LabNum1 LabNum2.Caption = Format(Number2, "#0") ' LabNum2 Sum = Number1 + Number2 ' Sum CmdNext.Enabled = False ' TxtAnswer.SetFocus ' TxtAnswer End Sub TxtAnswer_KeyPress Private Sub TxtAnswer_KeyPress(KeyAscii As Integer) ' ' KeyAscii Dim Ans As Integer ' 74

85 3 Visual Basic If (KeyAscii >= vbkey0 And KeyAscii <= vbkey9) Or KeyAscii = vbkeyback Then ' Exit Sub ' ElseIf KeyAscii = vbkeyreturn Then ' Ans = Val(TxtAnswer.Text) ' If Ans = Sum Then ' NumRight = NumRight + 1 ' 1 LabMessage.Caption = " " ' Else ' LabMessage.Caption = " " + Format(Sum, "#0") ' End If 'If LabScore.Caption = Format(100 * NumRight / NumProb, "##0") ' CmdNext.Enabled = True ' CmdNext.SetFocus ' Else KeyAscii = 0 End If End Sub CmdExit_Click Private Sub CmdExit_Click() End ' End Sub Label TextBox CommandButton Visual Basic 75

86 Visual Basic Visual Basic Visual Basic Visual Basic TAB 76

87 4 Windows Windows Word Click Visual Basic (N) Alt 4-1 Click Visual Basic Ctrl+O 4-1

88 Visual Basic Visual Basic Windows Ctrl+E 4-2 Menu 78

89 ID ID

90 Visual Basic Caption 80

91 mnuclock mnu

92 Visual Basic Visual Basic & Alt+C (&C) Label 5 Label 4-1 LblDay lbltime lblmonth Caption Sunday = Times New Roman = = Caption 00:00:00 PM = Times New Roman = = Caption= March = Times New Roman = = BackColor= &H & 82

93 4 lblnumber lblyear Caption 31 = Times New Roman = = Caption 2002 = Times New Roman = = munclockdate_click() Private Sub munclockdate_click(index As Integer) End Sub Private Sub munclockdate_click(index As Integer) ' Dim Today As Variant ' Today = Now ' Today lblmonth.caption = Format(Today, "mmmm") 83

94 Visual Basic 6.0 ' lblmonth lblyear.caption = Format(Today, "yyyy") ' lblyear lblnumber.caption = Format(Today, "d") ' lblnumber End Sub Private Sub mnuclocktime_click(index As Integer) ' Dim Today As Variant ' Today = Now ' Today lblday.caption = Format(Today, "dddd") ' lblday lbltime.caption = Time ' lbltime End Sub Private Sub mnuclockexit_click(index As Integer) ' Unload Me ' End Sub

95 Word Word Visual Basic Visual Basic Visual Basic 6.0 ActiveX ToolBar 1. PictureBox PictureBox Align 1 Align Top PictureBox Picture 85

96 Visual Basic 6.0 Picture PictureBox 2. CommandButton Image Image Image Image Image Image PictureBox Image Picture Picture Picture Picture

97 4 LoadPicture Picture Image1.Picture = LoadPicture( H:\0001.bmp ) Picture Image 3. Image Picture ToolTipText ToolTipText Button Image 87

98 Visual Basic 6.0 Caption Button 4. Image Click Sub ShowTime() Dim Today As Variant ' 88 Today = Now

99 4 ' Today lblday.caption = Format(Today, "dddd") ' lblday lbltime.caption = Time ' lbltime End Sub Sub ShowDate() Today = Now ' Today lblmonth.caption = Format(Today, "mmmm") ' lblmonth lblyear.caption = Format(Today, "yyyy") ' lblyear lblnumber.caption = Format(Today, "d") ' lblnumber End Sub Private Sub mnuclocktime_click(index As Integer) ' ShowTime End Sub Private Sub munclockdate_click(index As Integer) ' ShowDate End Sub Private Sub ImgShowTime_Click() ' ShowTime End Sub Private Sub CmdShowDate_Click() ' 89

100 Visual Basic 6.0 ShowDate End Sub 5. Windows Word MouseDown MouseUp ImgShowTime.Picture Image ImgShowTimeDn Visible Fasle ImgShowTime ImgShowTime MouseDown Private Sub ImgShowTime_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ' Mouse ImgShowTime.Picture = ImgShowTimeDn.Picture ' ImgShowTimeDn Picture ImgShowTime End Sub Image Picture Image 90

101 ToolBar ImageList ToolBar ActiveX Button ToolBar ImageList Microsoft Windows Common Control 6.0 ToolBar ImageList 1. ImageList ImageList ActiveX ToolBar ActiveX MSCOMCTL.OCX ToolBar ListView TreeView TabStrip Picture PictureBox Image CommandButton ImageList Key Index ToolBar ImageList ImageList ImageList ImageList Shift+F ImageList 91

102 Visual Basic ico.bmp Visual Basic Key ImageList 2. ToolBar ToolBar ToolBar Shift+F4 ImageList ToolBar ToolBar ImageList Visual Basic Key

103 ToolBar ImageList Key ToolTipText 4.3 Windows

104 Visual Basic 6.0 Word Show style 1 frm1 frm1.show 1 Show style frm1 frm1.show Windows MsgBox MsgBox MsgBox MsgBox prompt[,buttons][,title][,helpfile,context] MsgBox MsgBox (prompt[,buttons][,title][,helpfile,context]) prompt MsgBox prompt 1024 prompt (Chr(13)) (Chr(10)) buttons buttons 0 buttons 4-2 vbokonly 0 OK vbokcancel 1 OK Cancel 94

105 vbyesnocancel 3 Yes No Cancel VbYesNo 4 Yes No vbretrycancel 5 Retry Cancel VbCritical 16 CriticalMessage vbquestion 32 WarningQuery vbexclamation 48 WarningMessage vbinformation 64 InformationMessage vbdefaultbutton1 0 vbdefaultbutton2 256 VbDefaultButton3 512 VbDefaultButton4 768 vbapplicationmodal 0 vbsystemmodal 4096 vbmsgboxhelpbutton Help vbmsgboxsetforeground vbmsgboxright vbmsgboxrtlreading ~ buttons VisualBasicforApplications(VBA) title title helpfile helpfile context context context helpfile MsgBox MsgBox "Hello,World"

106 Visual Basic MsgBox " ", vbokonly + vbcritical, "VB " 4-19 Dim Reply As Integer Reply = MsgBox(" ", vbabortretryignore + vbquestion + vbdefaultbutton2, "VB ") MsgBox " ", vbinformation + vbokonly + vbmsgboxrtlreading, "VB " InputBox InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context]) prompt InputBox prompt 1024 prompt (Chr(13)) (Chr(10)) title title default 96

107 4 default xpos xpos ypos ypos helpfile helpfile context context context helpfile InputBox 4-22 Dim UserID As String UserID = InputBox(" ") Dim UserPassword As String UserPassword = InputBox(" ", " ",, 500, 500) Dim MoneyNum As String MoneyNum = InputBox(" ", " ", 500, 1500, 2000) 97

108 Visual Basic Windows ActiveX Microsoft Common Dialog Control ActiveX CommonDialog CommonDialog CommonDialog CommonDialog CommonDialog 4-3 ShowOpen ShowSave ShowColor ShowFont ShowPrinter ShowHelp Windows 98

109 4 CommonDialog CommonDialog CommonDialog1 CommonDialog CommonDialog1.ShowOpen CommonDialog1.ShowSave 4-28 CommonDialog1.ShowColor 99

110 Visual Basic

111 Private Sub Form_Load() UserName = InputBox(" ", " ", " ", 2000, 2000) frmcalculator.caption = UserName End Sub Dim UserName As String MnuCal MnuCalInput MnuCalCom Image ImgCal CommandButton 101

112 Visual Basic 6.0 CmdInput Dim Num1, Num2 As Single Dim Num1Str, Num2Str As String ' Dim FirstNum As Boolean ' Form_Load Num1 = 0 Num2 = 0 StrNum1 = "" StrNum2 = "" FirstNum = True Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 If FirstNum Then ' StrNum1 = Str(Index) 102

113 4 ' FirstNum = False ' Else ' StrNum1 = StrNum1 + Str(Index) ' End If ' Text1.Text = StrNum1 ' End Select End Sub Dim PointFlag As Boolean ' Form_Load PointFlag = False ' Case 10 If Not PointFlag Then ' If FirstNum Then ' StrNum1 = "0." FirstNum = False Else StrNum1 = StrNum1 + "." End If Else ' Exit Sub ' End If PointFlag = True Dim Num1, Num2 As Single Dim StrNum1, StrNum2 As String ' Dim FirstNum As Boolean ' 103

114 Visual Basic 6.0 Dim PointFlag As Boolean ' Dim Runsign As Integer ' Dim SignFlag As Boolean ' Dim UserName As String ' Sub ClearData() ' Num1 = 0 Num2 = 0 ' 0 StrNum1 = "" StrNum2 = "" ' FirstNum = True ' PointFlag = False ' Runsign = 0 ' 0 SignFlag = False ' Text1.Text = "0." ' 0. End Sub Sub Run() ' Num1 = Val(StrNum2) Num2 = Val(StrNum1) ' Select Case Runsign Case 1 ' equal = Num1 + Num2 Case 2 ' equal = Num1 - Num2 Case 3 ' equal = Num1 * Num2 Case 4 ' equal = Num1 / Num2 End Select StrNum2 = Str(equal) StrNum1 = StrNum2 Text1.Text = StrNum2 ' End Sub Private Sub Command1_Click(Index As Integer) Select Case Index ' Case 0 To 9 ' If FirstNum Then 104

115 4 ' StrNum1 = Str(Index) ' FirstNum FirstNum = False Else ' StrNum1 = StrNum1 + Str(Index) End If Text1.Text = StrNum1 Case 10 ' If Not PointFlag Then ' If FirstNum Then ' 0. StrNum1 = "0." ' FirstNum FirstNum = False Else ' StrNum1 = StrNum1 + "." End If Else ' Exit Sub End If ' PointFlag PointFlag = True ' Text1.Text = StrNum1 Case 12 To 15 ' FirstNum = True PointFlag = False ' If SignFlag Then Call Run ' Else SignFlag = True StrNum2 = StrNum1 ' StrNum2 105

116 Visual Basic 6.0 StrNum1 = "" ' StrNum1 End If Runsign = Index - 11 ' Case 11 ' If Not SignFlag Then Text1.Text = StrNum1 ' equal = Val(StrNum1) FirstNum = True PointFlag = False ' Else Call Run SignFlag = False End If Case Else Call ClearData ' End Select End Sub Form_Load Private Sub Form_Load() UserName = InputBox(" ", " ", " ", 2000, 2000) ' FrmCalculator.Caption = UserName ' Call ClearData ' End Sub 4.5 Visual Basic 106

117 5 Visual Basic Visual Basic Visual Basic 5.1 Visual Basic Visual Basic Visual Basic Visual Basic Visual Basic ActiveX 1 Visual Basic.exe Visual Basic Label TextBox CommandButton Visual Basic 5-1 Label TextBox CommandBotton CheckBox OptionButton

118 Visual Basic 6.0 ComboBox ListBox PictureBox Image Shape Line HscrollBar VscrollBar DriveListBox DirListBox FileListBox Timer Frame Data OLE OLE OLE Visual Basic 2 ActiveX ActiveX ActiveX ActiveX ActiveX Visual Basic ActiveX.ocx ActiveX Ctrl+T CommonDialog TabStrip ToolBar TreeView ListView Microsoft Windows Common Controls 5-2 ActiveX 108

119 5 CommonDialog Microsoft Common Dialog Control 6.0 MSFlexGrid Microsoft FlexGrid Control 6.0 TabStrip ToolBar StatusBar ProgressBar TreeView Microsoft Common Control 6.0 ListView ImageList Slider ImageCombo Microsoft Word Document Excel Chart PowerPoint Slide Equation3.0 OLE Visual Basic 5.2 Label Textbox Label Label Label 109

120 Visual Basic 6.0 Label 1. Label Labeln (n ) 2. Caption Caption Caption 1024 Label1 Label1.Caption = " " AutoSize WordWrap AutoSize True WordWrap True 3. tab Caption UseMnemonic True Label ALT tab & Caption TabIndex TabIndex 1 Caption & 110

121 TextBox TextBox TextBox Text TextBox Locked True TextBox Text TextBox Text Text 2048 MultiLine True 32 K TextBox Text TextBox Text Text TextBox1 Text TextBox1.Text = 5.3 (CommandButton ) CommandButton Click Height Width Caption Caption Lable Caption Caption Caption 255 Font Caption & Submit S & &Submit S ALT S CommandButton. 111

122 Visual Basic Value Value True Click Value False Value True Submit Submit.Value = True 2. Default Cancel ENTER Default True Cancel True ESC 3. Click Click Click MouseDown MouseUp CommandButton Click MouseDown Click MouseUp Style Picture DownPicture DisabledPicture Style 1 0- Picture Picture

123 5 5.4 Visual Basic Visual Basic 4 CheckBox OptionButton ComboBox ListBox CheckBox CheckBox on off CheckBox True/False yes/no CheckBox CheckBox 1. CheckBox CheckBoxn (n ) Label Caption 3 Label Caption 2. CheckBox 5-3 Caption Value Enabled 0 V 1 True False Click OptionButton OptionButton 5-5 OptionButton 113

124 Visual Basic OptionButton OptionButton OptionButton OptionButton 5-4 Caption Value Enabled True False True False Click OptionButton CheckBox OptionButton CheckBox ListBox ListBox

125 5 ListBox 5-5 List ListCount ListIndex Text Columns MultiSelect Sorted Style ListBox ListBox List(ListIndex) ListBox Columns ListBox ListBox 5-6 Click DbClick ListBox 5-7 AddItem RemoveItem Clear ListBox ComboBox ComboBox TextBox ListBox TextBox ListBox

126 Visual Basic ComboBox ListBox Style 5-8 VbComboDropDown VbComboSimple VbComboDrop-DownList Style Visual Basic Windows Visual Basic Visual Basic PictureBox Image Shape Line PictureBox PictureBox PictureBox Picture Picture PictureBox PictureBox PictureBox Picture

127 5 5-8 PictureBox LoadPicture Picture LoadPicture picsimple.picture = LoadPicture( C:\Pictures\simple.bmp ) PictureBox AutoSize True PictureBox AutoSize True PictureBox PictureBox Frame PictureBox PictureBox Top Left PictureBox PictureBox ToolBar StatusBar Image Label Align Top Bottom Left Right PictureBox 5-9 Align Bottom PictureBox 5-9 PictureBox Image Image PictureBox Image PictureBox Picture LoadPicture Image PictureBox Stretch Stretch 117

128 Visual Basic 6.0 False Image Stretch True Image 5-10 Stretch false Image Stretch true 5-10 Image Line Line Line Line Line Move Line X1 X2 Y1 Y2 4 Line 1. BorderWidth Line 1 Line BorderWidth BorderWidth 1~ BorderStyle Line 5-9 VbBSNone 0 VbFixedSingle 1 VbSizable 2 VbFixedDouble

129 5 vbfixedtoolwindow 4 Windows vbsizabletoolwindow 5 Windows 3. BorderColor Line 5-11 Line BorderColor BorderWidth Line Shape Shape Line Circle Shape BorderWidth BorderStyle BorderColor Line Shape Shape 5-10 vbshaperectangle 0 vbshapesquare 1 VbShapeOval 2 VbShapeOval 3 vbshaperoundedrectangle 4 vbshaperoundedsquare 5 119

130 Visual Basic Shape Shape Shape Scrollbar TextBox ScrollBar Visual Basic Visual Basic HScrollBar VScrollBar ScrollBar TextBox ListBox ComboBox MDI ScrollBar Scroll Change Scroll Change 1. Value Min Max Value 0 Value Min Max Min Max Min 0 Max Value Min 120

131 5 Value Max Value Min Max 2. LargeChange SmallChange LargeChange SmallChange Value LargeChange SmallChange Value 0~ Image Picture Image Width 4000 Height 2000 Stretch true; HScrollBar VScrollBar LargeChange 500 SmallChange Change Private Sub HScroll1_Change() Image1.Width = 4000 * (HScroll1.Value / HScroll1.Max) End Sub Change Private Sub VScroll1_Change() Image1.Height = 2000 * (VScroll1.Value / VScroll1.Max) End Sub 121

132 Visual Basic DriveListBox DirListBox FileListBox ( DriveListBox ) 5-15 Drive1.Drive = "c:\" 5-15 Drive ChDrive ChDrive Drive1.Drive ( DirListBox )

133 ListIndex Path Dir1.Path ListIndex -1 ListIndex -2 ListIndex -3 Dir1.Path ListIndex 0 ListIndex path Dir1.Path = Driver1.Driver ChDir ChDir Dir1.Path Application (.exe) ChDrive App.Path ' ChDir App.Path ' ( FileListBox )

134 Visual Basic 6.0 Path Path File1.Path = Dir1.Path Caption txtname txtage optsex chkact cbocity cmdshow cmdnew cmdexit

135 5 Option Explicit Dim Activity As String Private Sub cmdexit_click() End End Sub Private Sub cmdnew_click() Dim I As Integer txtname.text = txtage.text = For I = 0 To 5 chkact(i).value = vbunchecked Next I End Sub Private Sub cmdshow_click() Dim NoAct As Integer, I As Integer Dim Msg As String Dim Pronoun As String If txtname.text = Then MsgBox, vbokonly + vbcritical, 125

136 Visual Basic 6.0 Exit Sub End If If txtage.text = Then MsgBox, vbokonly + vbcritical, Exit Sub End If Msg = txtname.text + + Str$(txtAge.Text) + + vbcr If optsex(0).value = True Then Pronoun = Else Pronoun = Msg = Msg + Pronoun + + cbocity.text +. + vbcr Msg = Msg + Pronoun + NoAct = 0 For I = 0 To 4 If chkact(i).value = vbchecked Then NoAct = NoAct + 1 Next I If NoAct > 0 Then NoAct 0 Msg = Msg + + vbcr For I = 0 To 4 If chkact(i).value = vbchecked Then Msg = Msg + String$(10, 32) + chkact(i).caption + vbcr Next I Else Msg = Msg + + vbcr End If 126

137 5 MsgBox Msg, vbokonly, End Sub Private Sub Form_Load() cbocity.additem cbocity.text = cbocity.additem cbocity.additem cbocity.additem cbocity.additem cbocity.additem cbocity.additem cbocity.additem cbocity.additem cbocity.additem cbocity.additem cbocity.additem " " ' End Sub Private Sub txtage_keypress(keyascii As Integer) ' If (KeyAscii >= vbkey0 And KeyAscii <= vbkey9) Or KeyAscii = vbkeyback Then ' Exit Sub ' Else 127

138 Visual Basic 6.0 KeyAscii = 0 ' End If End Sub

139 3 1 Image DriverListBox Drive1 DirListBox Dir1 FileListBox File1 Image Image1 Stretch = true Drive1 Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Dir1 Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub File1 Private Sub File1_Click() Image1.Picture = LoadPicture(File1.Path + "\" + File1.FileName) End Sub

140 Visual Basic Visual Basic OptionBox CheckBox 130

141 6 Visual Basic Windows 6.1 Visual Basic (windows coordinate) (0,0) X Y Visual Basic Visual Basic (x,y) Height Width Visual Basic twip twip 1 twip Point 1/20 72 Point twip twip Visual Basic vbuser 1 VbTwips Twips 1440twip

142 Visual Basic VbPoints Points( ) 72 3 VbPixels Pixels( ) 15twip 4 vbcharacters 120twip 240twip 5 VbInches in( ) 6 vbmillimeters mm( ) 7 vbcentimeters cm( ) ScaleMode cm 1cm ScaleTop ScaleLeft ScaleLeft X ScaleLeft+ScaleWidth X ScaleTop Y ScaleTop + ScaleHeight Y X 0~100 Y 20~400 Form1.ScaleTop=20 Form1.ScaleLeft=0 Form1.ScaleWidth=100 Form1. Scale Height=380 Form Scale Scale Object.Scale X1 Y1 - X2 Y2 X1 Y1 X2 Y2 6.2 Visual Basic Visual Basic Pset [object.]pset (x, y)[, color] object (x,y) [color] Dim i As Integer For i = 0 To 99 Step 1 PSet (i * 50, i * 50), RGB(255, 0, 0) 132

143 6 Next I View Code( ) Form paint VisualBasic Private Sub Form_Paint() form (BackColor) Pset(100,200),BackColor 6.4 Line Visual Basic line [object.]line [(x1, y1)]-(x2, y2)[, color] Object x y 1 EXE 2 Form1 Caption LineForm Form1 Height Width Form_Paint Private Sub Form_Paint() 133

144 Visual Basic 6.0 Dim count As Single Dim end_tmp As Single Dim start_tmp As Single ' For count = 1 To 10 Step 1 ' 10 end_tmp = count * 400 start_tmp = count * 50 Line (start_tmp, start_tmp)-(start_tmp, end_tmp) Line (start_tmp, end_tmp)-(end_tmp, end_tmp) Line (end_tmp, end_tmp)-(end_tmp, start_tmp) Line (end_tmp, start_tmp)-(start_tmp, start_tmp) Next count End Sub form Step Line (100, 200) (150, 250) Line (100, 200) Step(50, 50) 134

145 6 6.5 Circle Visual Basic Circle Circle center_point,radius,[color,start_angle,end_angle,aspect] center_point (x,y) radius (Single) color (Long) start_angle -2* ~2* end_angle aspect Form_Paint Private Sub Form_Paint() ' Dim radius As Single ' radius = (Width ) / 2 Dim angle As Double ' angle = 5 Dim color As Long ' color = 0 ' Do While radius >= 200 Circle (Width / 2, Height / 2-200), radius, color,, angle, 3 / 5 ' : radius = radius * 10 / 11 color = color + 10 Loop End Sub 135

146 Visual Basic form RGB RGB (Red) (Green) (Blue) RGB 0~ ~FF RGB : RGB(255,255,255) : RGB(0,0,0) : RGB(255,0,0) : RGB(0,0,255) : RGB(0,255,0) :RGB(255,0,255) : RGB(255,255,0) :RGB(0,255,255) Line (0, 200)-(2000, 200), RGB(0, 0, 0) ' Line (0, 400)-(2000, 400), RGB(255, 0, 0) ' Line (0, 600)-(2000, 600), RGB(0, 255, 0) ' Line (0, 800)-(2000, 800), RGB(0, 0, 255) 136

147 6 ' Line (0, 1000)-(2000, 1000), RGB(255, 255, 0) ' Line (0, 1200)-(2000, 1200), RGB(255, 0, 255) ' Line (0, 1400)-(2000, 1400), RGB(0, 255, 255) ' Line (0, 1600)-(2000, 1600), RGB(255, 255, 255) ' Form_Paint() QBColor QBColor(int x) x 0~15 16 MSDN RGB *256*256= ~ Visual Basic &HXXXXXX& &HBBGGRR& Dim i As Integer Dim j As Integer Dim color As Long For i = 0 To 255 Step 1 For j = 0 To 255 Step 1 color = i * 100 color = color * j 137

148 Visual Basic 6.0 PSet (i * 20, j * 20), color Next j Next i FillStyle FillStyle 6-2 FillStyle FillStyle (500,500) 1000*

149 6 FillStyle = 5 Line (500, 500)-Step(1000, 1000),, B ' B Visual Basic DrawWidth Dim linewidth As Integer For linewidth = 1 To 10 DrawWidth = linewidth Line (100, 500 * linewidth)-(3000, 500 * linewidth) Next linewidth

150 Visual Basic DrawStyle DrawStyle 6-3 DrawStyle ( ) 6 2. DrawStyle 1~6 Dim linewidth As Integer For linewidth = 1 To 6 DrawStyle = linewidth Line (100, 500 * linewidth)-(3000, 500 * linewidth) Next linewidth Form_Paint() Form_Paint() Form Form_Load() AutoRedraw True Form_Load() 140

151 DrawMode 7 vbxorpen XOR XOR 6-4 Bit1 Bit A XOR B=C A XOR C=B B XOR C=A XOR XOR Visual Basic DrawMode 13 vbcopy 7 vbxorpen 6-10 XOR 6-11 XOR 141

152 Visual Basic XOR XOR XOR 3 MouseDown MouseMove MouseUp MouseDown XStart YStart DrawMode vbxorpen MouseMove MouseMove XOld YOld MouseMove XStart YStart XOld YOld XStart YStart CopyPen MouseUp MouseUp vbcopypen Line 3 MouseDown AutoRedraw False MouseMove Refresh Case "CIRCLE": frmmain.refresh frmmain.circle (XStart, YStart), Sqr((X - XStart) ^ 2 + (Y - YStart) ^ 2) Case "BOX": frmmain.refresh frmmain.line (XStart, YStart)-(X, Y),, B End Select frmmain.refresh frmmain.cls AutoRedraw True Refresh 142

153 AutoRedraw=False AutoRedraw=True AutoRedraw True Refresh AutoRedraw True Visual Basic AutoRedraw=False Refresh 6-12 AutoRedraw=False AutoRedraw=True 6.7 Visual Basic Visual Basic

154 Visual Basic frmmain Visual Basic EXE Form1 frmmain 1 1 PictureBox 1 CommonDialog 1 Label frmmain 6-5 BoderStyle 2-Sizeable FrmMain Caption AutoRedraw True AutoRedraw True picture1 AutoSize False Visable False CommonDialog1 Visable False 5 1Pixel 2Pixel 3Pixel 144

155 6 2. Option Explicit Dim FileSaved As Boolean ' Dim FileSaveCancel As Boolean ' Dim Shape As String ' Dim XStart As Single, YStart As Single ' Dim XPrevious As Single, YPrevious As Single ' Dim PrintText As Boolean ' Dim OpenFile As String ' 3. 1 ' Private Sub FileNew_Click() Me.Picture = LoadPicture() ' OpenFile = "" End Sub ' Private Sub FileOpen_Click() CommonDialog1.Filter = "Images(*.bmp;*.gif;*.jpg) *.bmp;*.gif;*.jpg" ' *.bmp;*.gif;*.jpg CommonDialog1.DefaultExt = "BMP" ' BMP CommonDialog1.ShowOpen If CommonDialog1.FileName = "" Then Exit Sub Me.Picture = LoadPicture(CommonDialog1.FileName) ' OpenFile = CommonDialog1.FileName Picture1.Picture = Me.Picture End Sub ' Private Sub FileSave_Click() If OpenFile <> "" Then SavePicture Image, OpenFile FileSaved = True Else Call FileSaveAs_Click 145

156 Visual Basic 6.0 End If End Sub ' Private Sub FileSaveAs_Click() ' *.bmp CommonDialog1.Filter = "Images *.bmp" CommonDialog1.DefaultExt = "BMP" CommonDialog1.ShowSave ', " " If CommonDialog1.FileName = "" Then FileSaveCancel = True ' FileSaveCancel, Exit Sub End If SavePicture Me.Image, CommonDialog1.FileName OpenFile = CommonDialog1.FileName End Sub ' Filesaved, FileSaved = True ' Private Sub FileExit_Click() Dim Answer As Integer If Not FileSaved Then Answer = MsgBox(",?", vbyesnocancel, " ") Select Case Answer Case vbyes Call FileSaveAs_Click If FileSaveCancel Then FileSaveCancel = False Exit Sub End If Case vbcancel Exit Sub End Select End If 146

157 6 End End Sub ' End 2 ' Private Sub DrawLine_Click() Shape = "LINE" DrawLine.Checked = True DrawCircle.Checked = False DrawText.Checked = False DrawBox.Checked = False End Sub ' Private Sub DrawCircle_Click() Shape = "CIRCLE" DrawLine.Checked = False DrawCircle.Checked = True DrawText.Checked = False DrawBox.Checked = False End Sub ' Private Sub DrawBox_Click() Shape = "BOX" DrawLine.Checked = False DrawCircle.Checked = False DrawText.Checked = False DrawBox.Checked = True End Sub ' Private Sub DrawText_Click() Dim DrawString As String ' ' ' DrawString = InputBox(" ") Label1.Caption = DrawString Label1.ForeColor = Me.ForeColor ' Lable1 PrintText = True DrawLine.Checked = False DrawCircle.Checked = False DrawText.Checked = True 147

158 Visual Basic 6.0 DrawBox.Checked = False End Sub 3 ' 1 Private Sub width1_click() Me.DrawWidth = 1 width1.checked = True Width2.Checked = False Width3.Checked = False End Sub ' 2 Private Sub Width2_Click() Me.DrawWidth = 2 width1.checked = False Width2.Checked = True Width3.Checked = False End Sub ' 3 Private Sub Width3_Click() Me.DrawWidth = 3 width1.checked = False Width2.Checked = False Width3.Checked = True End Sub 4 ' Private Sub StyleSolid_Click() StyleSolid.Checked = True StyleDash.Checked = False StyleDot.Checked = False Me.DrawStyle = 0 End Sub ' Private Sub StyleDash_Click() StyleSolid.Checked = False StyleDot.Checked = False StyleDash.Checked = True Me.DrawStyle = 1 End Sub 148

159 6 ' Private Sub StyleDot_Click() StyleSolid.Checked = False StyleDash.Checked = False StyleDot.Checked = True Me.DrawStyle = 2 End Sub 5 ' Private Sub ColorPen_Click() CommonDialog1.Color = Me.ForeColor CommonDialog1.Flags = cdlccrgbinit CommonDialog1.ShowColor Me.ForeColor = CommonDialog1.Color End Sub ' Private Sub ColorPage_Click() CommonDialog1.Color = Me.BackColor CommonDialog1.Flags = cdlccrgbinit CommonDialog1.ShowColor Me.BackColor = CommonDialog1.Color Picture2.BackColor = Me.BackColor End Sub ' Private Sub ColorFill_Click() CommonDialog1.Color = Me.FillColor CommonDialog1.Flags = cdlccrgbinit CommonDialog1.ShowColor Me.FillColor = CommonDialog1.Color End Sub 4. ' Private Sub Form_Load() PrintText = False ' FileSaved = True ' 149

160 Visual Basic 6.0 End Sub ' Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then ' Shape = "" DrawLine.Checked = False DrawBox.Checked = False DrawText.Checked = False DrawCircle.Checked = False End If If Button = 1 Then XStart = X ' YStart = Y XPrevious = XStart ' XOR YPrevious = YStart Me.AutoRedraw = False ' End If ' If PrintText Then FileSaved = False Label1.Visible = True Label1.Left = X Label1.Top = Y Exit Sub End If ' If Shape <> "" Then FileSaved = False End Sub ' Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button <> 1 Then Exit Sub ' ' Label1 If PrintText Then Label1.Left = X Label1.Top = Y Exit Sub End If ' Select Case Shape 150

161 6 Case "LINE": Me.AutoRedraw = True Me.DrawMode = vbxorpen Me.Line (XStart, YStart)-(XPrevious, YPrevious) Me.Line (XStart, YStart)-(X, Y) Case "CIRCLE": Me.Refresh Me.Circle (XStart, YStart), Sqr((X - XStart) ^ 2 + (Y - YStart) ^ 2) Case "BOX": Me.Refresh Me.Line (XStart, YStart)-(X, Y),, B End Select ' XPrevious = X YPrevious = Y End Sub ' Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim X1 As Integer, Y1 As Integer If PrintText Then Me.AutoRedraw = True Me.CurrentX = X Me.CurrentY = Y Me.Print Label1.Caption ' Lable1 me Label1.Visible = False PrintText = False Exit Sub End If ' Refresh Me.DrawMode = vbcopypen Me.AutoRedraw = True Select Case Shape Case "LINE": Me.Line (XStart, YStart)-(X, Y) Case "CIRCLE": Me.Circle (XStart, YStart), Sqr((X - XStart) ^ 2 + (Y - YStart) ^ 2) Case "BOX": Me.Line (XStart, YStart)-(X, Y),, B End Select 151

162 Visual Basic 6.0 End Sub ' Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim Answer As Integer If Not FileSaved Then Answer = MsgBox(",?", vbyesnocancel, " ") Select Case Answer Case vbyes Call FileSaveAs_Click If FileSaveCancel Then FileSaveCancel = False Cancel = True End If Case vbno Exit Sub Case vbcancel Cancel = True End Select End If End Sub ' Picture1 me Private Sub Form_Resize() Picture1.Width = Me.Width Picture1.Height = Me.Height End Sub 6.8 Visual Basic VisualBasic 152

163 7 Visual Basic Visual Basic Function FileExists(filename) As Boolean FileExists = (Dir(filename) <> "") End Function Dir Dir Dir Dir Visual Basic Visual Basic Visual Basic Err Err Visual Basic 3 Next For Visual Basic Left Visual Basic object (object.left) Visual Basic

164 Visual Basic Speed = Miles / Hours Hours Visual Basic Variant Object Option Explicit 7.1 Visual Basic 154

165 7 7.2 Visual Basic 3 Break

166 Visual Basic Visual Basic Debug Print Assert Print

167 7 3 Expression not defined in context

168 Visual Basic Visual Basic F9 F5 5 F

169 F9 Ctrl+Shift+F Microsoft Windows MouseDown MouseUp MouseDown MouseUp MouseDown KeyDown KeyDown KeyUp GotFocus LostFocus Debug.Print GotFocus LostFocus Timer Timer Timer Timer UserControl Timer Timer UserDocument Timer Internet Explorer UserDocument Timer Timer 159

170 Visual Basic Visual Basic Visual Basic Visual Basic Visual Basic Visual Basic 7-1 Windows Windows 3 On Error Resume Visual Basic 160

171 7 Resume Next Visual Basic On Error Goto On Error Visual Basic On Error On Error GoTo ErrorHandler ErrorHandler On Error On Error GoTo Private Sub Command1_Click() On Error GoTo Error Dim a,b a=1 b=0 a=a/b Exit Sub Error: MsgBox "Error!" Resume Next End Sub On Error GoTo Exit Sub On Error GoTo Resume Visual Basic Resume Resume Next Resume Line Resume Resume Resume Resume Resume Next Resume Resume 161

172 Visual Basic 6.0 Resume Resume Next Resume Resume Next Resume Line Resume Next Reume Line Private Sub Command1_Click() On Error Goto Error File="C\1.txt" Open File For Input As 1 Close 1 Exit Sub SelectFile CommandDialog1.ShowOpen File=Command1.FileName Open File For Input As 1 Close 1 Exit Sub Error: Resume SelectFile End Sub Err Err Err Visual Basic Number Err Number Visual Basic 6 11 Description 11 Division by zero Description Visual Basic Err Error 162

173 7 Sub On Error GoTo ErrorHandler ' Exit Sub ErrorHandler If Err.Number N Then ' N Else If Err.Number= M Then ' M Else ' End If Resume Next Exit Sub Retries Retries=0 ' On Error Goto DiskErrorImage1.Picture=LoadPicture("A \Prntout2.wmf") Exit Sub ' DiskError MsgBox(Err.Description) " " Retries=Retries+1 ' 1 If Retries>=2 Then Resume Next Else Resume End If Resume Resume Next Resume Next Exit Sub Resume Next Visual Basic Err Clear Raise Clear 163

174 Visual Basic 6.0 Resume On Error Visual Basic Raise Raise Err.Raise ErrorNumber 13 Err.Raise 13 Visual Basic Visual Basic Err Const Error=1+vbObjectError+512 Raise Automation Error Description vbobjecterror Err Raise Visual Basic.exe Raise QueryUnload Unload Err Clear On Error Resume Next Visual Basic Resume Exit Sub Exit Exit On Error Clear Stop Stop Visual Basic.exe Stop End Stop QueryUnload Unload Visual Basic Visual Basic Raise 164

175 7 object.raise argumentlist object Err Visual Basic argumentlist Err.Raise Number:=intErrNum interrnum Resume Err Clear Visual Basic Visual Basic Visual Basic Variant Variant FileExists Function FileExists(p As String) As Long If Dir(p) <> " " Then FileExists = consuccess ' Else FileExists = confailure ' End If End Function Dim ResultValue As LongResult Value = FileExists("C:\Testfile.txt") If ResultValue = confailure Then ' Else ' End If API DLL Visual Basic Visual Basic FileExists On ErrorResume Next Err 165

176 Visual Basic 6.0 On Error Resume Next Err Err.Number Err Function FileExists(p As String) If Dir(p) <> " " Then Err.Raise consuccess ' Else Err.Raise confailure ' confailure End If End Function Dim ResultValue As Long On Error Resume Next ResultValue = FileExists("C:\Testfile.txt") If Err.Number = confailure Then ' Else ' End If Function Power(X As Long, P As Integer, ByRef Result As Integer) As Long On Error GoTo ErrorHandler Result = X ^ P Exit Function ErrorHandler: Power = confailure End Function ' ' Power Dim lngreturnvalue As Long, lngerrormaybe As Long lngerrormaybe = Power(10, 2, lngreturnvalue) If lngerrormaybe Then ' Else ' End If Visual Basic Variant Variant 166

177 7 Visual Basic Variant Power Variant Function Power(X As Long, P As Integer) As Variant On Error GoTo ErrorHandle Power = X ^ P Exit Function ErrorHandler: Power = CVErr(Err.Number) ' End Function ' Power Dim varreturnvalue As VariantvarReturn Value = Power(10, 2) If IsError(varReturnValue) Then ' Else ' End If Visual BasicVariant Variant Visual Basic Variant FileErrors FileErrors MnErrDeviceUnavailable Visual Basic vbexclamation Function FileErrors() As Integer Dim intmsgtype As Integer, strmsg As String Dim intresponse As Integer ' ' 0 ' 1 ' 2 ' 3 intmsgtype = vbexclamation Select Case Err.Number Case MnErrDeviceUnavailable 167

178 Visual Basic 6.0 ' 68 strmsg = "That device appears unavailable." intmsgtype = vbexclamation + 4 Case MnErrDiskNotReady ' 71 strmsg = "Insert a disk in the drive " strmsg = strmsg & "and close the door." intmsgtype = vbexclamation + 4 Case MnErrDeviceIO ' 57 strmsg = "Internal disk error." intmsgtype = vbexclamation + 4 Case MnErrDiskFull ' 61 strmsg = "Disk isfull. Continue?" intmsgtype = vbexclamation + 3 ' Case ErrBadFileName, ErrBadFileNameOrNumber strmsg = "That filename is illegal." intmsgtype = vbexclamation + 4 Case ErrPathDoesNotExi ' 76 strmsg = "That path doesn't exist." intmsgtype = vbexclamation + 4 Case ErrBadFileMode ' 54 strmsg = "Can't open your file for that " strmsg = strmsg & "type of access." intmsgtype = vbexclamation + 4 Case ErrFileAlreadyOpen ' 55 strmsg = "This file is already open." intmsgtype = vbexclamation + 4 Case ErrInputPastEndOfFile ' 62 strmsg = "This file has a nonstandard " strmsg = strmsg & "end-of-file marker, " strmsg = strmsg & "or an attempt was made " strmsg = strmsg & "to read beyond " strmsg = strmsg & "the end-of-file marker." 168

179 7 intmsgtype = vbexclamation + 4 Case Else FileErrors = 3 Exit Function End Select intresponse = MsgBox(strMsg, intmsgtype, "Disk Error") Select Case intresponse Case 1, 4 ' FileErrors = 0 Case 5 ' FileErrors = 1 Case 2, 3 ' FileErrors = 2 Case Else FileErrors = 3 End Select End Function / 3 Raise FileErrors FileErrors On Error 169

180 Visual Basic Visual Basic Err 170

181 8 Visual Basic Windows Visual Basic Open Write File System Object FSO Windows DOS Mac OS Unix ( ) Word space tab ASCII ASCII ASCII

182 Visual Basic Visual Basic FSO Filter CommonDialog 172 object.filter [ = description1 filter1 description2 filter2...] 8-1 Object CommonDialog Description Filter Open Open pathname For mode[accessaccess][lock] As [#] filenumber [Len=reclength] 8-2 Pathname Mode Access Lock Filenumber Reclength Append Binary Input Output Random Random Read Write ReadWrite Shared LockRead LockWrite LockReadWrite FreeFile 32767

183 8 LOF Open LOF (filenumber) Input Input Binary Input (number, [#]filenumber) 8-3 number Close Open / I/O Close [filenumberlist] 8-4 filenumberlist Print# Print# filenumber, [outputlist] 8-5 outputlist filenumber [[#]filenumber][,[#]filenumber]

184 Visual Basic 6.0 Private Sub Command1_Click() ' CommonDialog1.Filter = " (*.txt) *.txt (*.*) *.*" ' CommonDialog1.ShowOpen ' Open CommonDialog1.FileName For Input As #1 ' Text1.Text = StrConv(Input(LOF(1), 1), vbunicode) ' Close #1 ' End Sub Private Sub Command2_Click() ' CommonDialog1.Filter = " (*.txt) *.txt (*.*) *.*" ' CommonDialog1.ShowSave ' CommonDialog Open CommonDialog1.FileName For Output As #1 ' Close 1 ' End Sub

185 mnufile mnunew mnuopen mnusave mnusaveas mnuautosave mnuexit CMDialog1 TxtUserInput editor Timer1 mrautosave 175

186 Visual Basic 6.0 Private Sub Form_Load() ' tmrautosave.enabled = False ' Screen.MousePointer = vbnormal ' ' ' ' frmsave.top = 0 frmsave.left = 0 editor.width = frmsave.width - 50 editor.height = frmsave.height ' End Sub Private Sub mnuexit_click() Dim Answer ' Answer = MsgBox(" ", 3 + vbinformation, "File Save") ' If Answer = vbyes Then ' mnusave_click ' End If If Answer = vbno Then ' End End If If Answer = vbcancel Then Exit Sub ' End Sub Private Sub Form_Unload(Cancel As Integer) ' Dim Answer ' 176

187 8 Answer = MsgBox(" ", 4 + vbinformation, "File Save") ' If Answer = vbyes Then ' mnusave_click ' Else Unload Me ' End If End Sub Private Sub mnuautosave_click() ' Dim UserInput ' UserInput = InputBox(" 3 3 ", "AUTO SAVE") ' If UserInput = "" Then ' MsgBox (" ") ' If Not IsNumeric(UserInput) Then Exit Sub ' MsgBox " " ' txtuserinput = "0" ' "0" tmrautosave.enabled = False ' Else txtuserinput = UserInput ' tmrautosave.enabled = True ' End If End Sub Private Sub mnunew_click() ' 177

188 Visual Basic 6.0 Dim Answer ' Answer = MsgBox(" ", vbyesno) ' If Answer = vbyes Then ' mnusave_click ' Else editor.textrtf = "" ' End If End Sub Private Sub mnuopen_click() ' Dim choice As Integer ' Dim filenum As Integer ' On Error GoTo openerrortrap ' If editor.visible = True Then If saveflag = 1 Then ' choice = MsgBox(" ", 3) ' End If If choice = 6 Then ' mnusave_click ' If Filename = "" Then Exit Sub ' ElseIf choice = 2 Then ' Exit Sub ' End If saveflag = 0 178

189 8 ' CMDialog1.Action = 1 ' If CMDialog1.Filename <> "" Then ' Screen.MousePointer = 11 ' filenum = FreeFile ' Integer Open Open CMDialog1.Filename For Binary Access Read As filenum ' editor.textrtf = Input(LOF(filenum), filenum) ' Close (filenum) ' Screen.MousePointer = 0 ' Filename = CMDialog1.Filename ' End If editor.setfocus ' End If Exit Sub openerrortrap: ' Screen.MousePointer = 0 MsgBox "File not Found" Exit Sub Resume Next End Sub Private Sub mnusave_click() ' Dim filenum As Integer ' On Error GoTo saveerrortrap ' If Filename = "" Then ' 179

190 Visual Basic 6.0 CMDialog1.Action = 2 ' If CMDialog1.Filename = "" Then ' editor.setfocus ' Exit Sub ' End If Filename = CMDialog1.Filename ' End If Screen.MousePointer = 11 ' filenum = FreeFile ' Integer Open Open Filename For Output As filenum ' Print #filenum, editor.textrtf; ' editor.setfocus ' Close (filenum) ' saveflag = 0 ' Screen.MousePointer = 0 ' Exit Sub ' saveerrortrap: ' Screen.MousePointer = 0 MsgBox "Error Saving File" Exit Sub Resume Next End Sub 180 Private Sub mnusaveas_click()

191 8 ' Dim filenum As Integer ' CMDialog1.Action = 2 ' If CMDialog1.Filename <> "" Then ' Screen.MousePointer = 11 ' filenum = FreeFile ' Integer Open Open CMDialog1.Filename For Output As filenum ' Print #filenum, editor.textrtf ' editor.setfocus ' Close (filenum) ' saveflag = 0 ' Screen.MousePointer = 0 ' End If End Sub ' Private Sub Timer1_Timer() ' Timer Timer txtrepitition2 = Val(txtRepitition2) + 1 ' txtrepitition2 1 If Val(txtRepitition2) = 10 Then ' txtrepitition txtrepitition2 = "0" ' 0 frmsave.caption = "" ' Caption Else 181

192 Visual Basic 6.0 frmsave.caption = "Save, Save As...,and Auto Save" ' Caption Save, Save As...,and Auto Save End If End Sub Private Sub txtuserinput_change() ' If Not IsNumeric(txtUserInput) Then ' MsgBox "Invalid number!" ' txtuserinput = "0" ' 0 txtrepitition = "0" ' 0 tmrautosave.enabled = False ' Else tmrautosave.enabled = True ' End If End Sub Private Sub tmrautosave_timer() ' Timer Timer ' txtrepitition = Val(txtRepitition) + 1 ' txtrepitition2 1 On Error Resume Next ' If Val(txtRepitition) = txtuserinput * 60 Then ' txtrepitition = "0" ' 0 If editor = "" Then Exit Sub ' mnusave_click ' End If End Sub 182

193

194 Visual Basic 6.0 Windows Integer String*15 String*5 String*10 Date String*100 String*100 String* Integer String String String Date String String String /

195 * Open Open pathname For Binary As FileNumber Caption Private Sub Command1_Click() ' Dim n As Long ' Dim arrbytes() As Byte ' Open "c:\win98\.bmp" For Binary As 1 ' n = LOF(1) 'LOF Long Open ' ' n ReDim arrbytes(1 To n) As Byte ' Get 1,, arrbytes ' bmp Close 1 ' Open "c:\win98\.bmp" For Binary As 1 185

196 Visual Basic 6.0 ' Put 1,, arrbytes ' Close 1 ' End Sub.bmp bmp 8-8.bmp Visual Basic 6.0 File System Object FSO FSO Drive LAN CD ROM Folder Files TextStream 186

197 8 FileSystemObject FileSystemObject FileSystemObject FSO FSO Scripting Scrrun.dll Microsoft Scripting Runtime FileSystemObject 1. FileSystemObject Dim fso As New FileSystemObject 2. CreateObject Set fso = CreateObject("Scripting.FileSystemObject") FSO 1. Drive FileSystemObject FileSystemObject (AvailableSpace FreeSpace) (DriveLetter) (DriveType) FAT FAT32 NTFS (IsReady) (Path RootFolder) (SerialNumber) (ShareName VolumeName) (TotalSize) GetDrive Drive 187

198 Visual Basic 6.0 object.getdrive drivespec 8-9 object drivespec FileSystemObject drivespec c c: c:\ \\computer2\share Private Sub Command1_Click() Dim fso As New FileSystemObject ' FSO Dim drv As Drive ' Dim str As String ' Set drv = fso.getdrive(fso.getdrivename("c:")) ' Debug.Print "Total Space: " & FormatNumber(drv.TotalSize / 1024, 0) & "Kb" ' Debug.Print "Free Space: " & FormatNumber(drv.FreeSpace / 1024, 0) & "Kb" ' End Sub

199 Folder Copy Delete Move Name Path DateCreated FileSystemObject CreateFolder CopyFolder MoveFolder DeleteFolder GetFolder GetFolder Folder object.getfolder(folderspec) 8-10 object FileSystemObject folderspec Folderspec CreateFolder object.createfolder(foldername) 8-11 foldername DeleteFolder object.deletefolder folderspec[,force]

200 Visual Basic 6.0 folderspec force folderspec Boolean True False Command1 Private Sub Command1_Click() Dim fso As New FileSystemObject ' FSO Dim fldr As Folder ' Folder Set fldr = fso.getfolder("c:") ' Debug.Print "Parent folder name is: " & fldr ' Debug.Print "Contained on drive " & fldr.drive; ' fso.createfolder ("c:\temp") ' FileSystemObject fso.deletefolder ("c:\temp") ' End Sub Command1 C: Temp fso.deletefolder ("c:\temp") C: Temp

201 C: Temp Get Create Get Set fldr = fso.createfolder("c:\temp2") 3. FSO TextStream FSO CreateTextFile OpenTextFile OpenAsTextStream 3 3 : FileSystemObject OpenTextFile File OpenAsTextStream TextStream Write WriteLine WriteBlankLines TextStream Close CreateTextFile TextStream object.createtextfile(filename[,overwrite[,unicode]]) 8-13 object FileSystemObject Folder filename overwrite unicode Boolean True False Boolean Unicode ASCII Unicode True ASCII False ASCII 191

202 Visual Basic 6.0 GetFile File object.getfile(filespec) 8-14 object filespec FileSystemObject filespec Command1 Private Sub Command1_Click() Dim fso As New FileSystemObject ' FSO Dim fil As File ' Dim ts As TextStream ' TextStream fso.createtextfile "c:\testfile.txt" ' TextStream Set fil = fso.getfile("c:\testfile.txt") ' Set ts = fil.openastextstream(forwriting) ' TextStream ' ' ts.write ("!") '! ts.close ' TextStream Set ts = fil.openastextstream(forreading) ' TextStream ' ' s = ts.readline ' TextStream ' MsgBox s 192

203 8 ' ts.close ' TextStream End Sub Visual Basic 6.0 File System Object CopyFile MoveFile DeleteFile File Copy Move Delete Command1_Click() Private Sub Command1_Click() Dim fso As New FileSystemObject ' FSO Dim txtfile As TextStream ' TextStream Dim fil1 As File ' File Dim fil2 As File ' File Set txtfile = fso.createtextfile("c:\testfile.txt", True) ' TextStream txtfile.write ("!") ' "!" txtfile.close ' TextStream Set fil1 = fso.getfile("c:\testfile.txt") ' fso.createfolder ("c:\temp1") ' FileSystemObject fso.createfolder ("c:\temp2") ' FileSystemObject fil1.copy ("c:\temp1\testfile.txt") 193

204 Visual Basic 6.0 ' \temp1 fil1.move ("c:\temp2\testfile.txt") ' \temp2 Set fil1 = fso.getfile("c:\temp1\testfile.txt") ' Set fil2 = fso.getfile("c:\temp2\testfile.txt") ' fil1.delete ' fil2.delete ' fso.deletefolder ("c:\temp1") ' fso.deletefolder ("c:\temp2") ' End Sub C testfile.txt 8.3 Windows Word 194

205 9 Visual Basic Visual Basic Visual Basic

206 Visual Basic Data Access Access ODBC Access Access Microsoft Access 196

207 Visual Basic \vb98 Visdata Microsot Access 7.0 MDB

208 Visual Basic MDB Microsoft Access Microsoft Access

209

210 Visual Basic Visual Basic Visual Basic Visual Basic DataSource DataField Visual Basic 6.0 Data Microsoft Excel ASCII ODBC Microsoft SQL Oracle Microsoft Jet 1 data 3.mdb Caption Data ReadOnly True Data DatabaseName DatabaseName

211 DatabaseName Data RecordSource students Visual Basic students 3 DataSource Data1 DataField

212 Visual Basic 6.0 Data ReadOnly True False 9.3 SQL SQL Structured Query Language SQL ANSI SQL SQL Oracle Sybase Microsoft SQL Server Access SQL SQL Select Insert Update Delete Create Drop SQL Visual Basic SQL SQL SQL SQL 1. SQL ALL TOP DISTINCT 2. SQL Parameter Parameter Query PARAMETERS 3. SQL WHERE 4. SQL BETWEEN...AND INNER JOIN 5. SQL AVG() 6. SQL SQL SQL 202

213 9 SQL SELECT * FROM students WHERE students.name='john' FROM...WHERE SQL SQL SQL SELECT SELECT [ predicate ] { * table.* [table.] field [,[table.] field2 [,...]]} [AS alias1 [,alias2[,...]]] FROM tableexpression [,...][IN externaldatabase] [WHERE...] [GROUP BY...] [HAVING...] [ORDER BY...] [WITH OWNERACCESS OPTION] predicate ALL DISTINCT DISTINCTROW TOP 9-5 * [] table field1 field2 alias1 alias2 tableexpression externaldatabase externaldatabase 203

214 Visual Basic 6.0 ALL DISTINCT DISTINCTROW TOP SELECT [ALL DISTINCT DISTINCTROW [TOP n[percent]]] FROM table ALL Microsoft Jet database engine ALL SELECT * FROM students ALL SELECT ALL * FROM students DISTINCT 9-4 SQL SELECT DISTINCT DISTINCT SELECT DISTINCT FROM students 9-15 DISTINCTROW TOP ORDER BY 5 SELECT TOP 5 FROM students FROM SELECT WHERE 204

215 9 129 SELECT * FROM students WHERE = '129 ' ORDER BY SELECT SELECT fieldlist FROM table WHERE selectcriteria ORDER BY field1[asc DESC][,field2[ASC DESC][,...]] 9-6 fieldlist selectcriteria field1 ASC DESC alias1 alias2 tableexpression externaldatabase ALL DISTINCT DISINCTROW TOP ORDER BY externaldatabase SELECT * FROM students ORDER BY DESC GROUP BY 205

216 Visual Basic 6.0 SELECT fieldlist FROM table WHERE criteria GROUP BY groupfieldlist SELECT FROM students GROUP BY 9-19 BETWEEN...AND SELECT * FROM students WHERE BETWEEN AND LIKE pattern SELECT * FROM students WHERE ( LIKE ' %') Visual Basic Visual Basic 3 Access Microsoft ODBC 206

217 9 ODBC Visual Basic Ms Access Visual Basic Access FoxPro dbase Paradox Visual Basic Data Manager NEW OPEN DESIGN DELETE Visual Basic Microsoft JET JET ISAM(Indexed Sequential Access Method ) JET Access build-in Visual Basic Access Access Microsoft JET ANSI VB ISAM ISAM dbase Paradox Borland DDL Data Definition Language DML Data Manipulation Language Visual Basic SQL JET Access.MDB Btrieve.DAT dbase.dbf/.ndx Foxpro.DbF/.CDX/.NDX Paradox.DB,.PX ODBC Microsoft SQL Server Oracle Sybase SQL Server Sybase Powersoft PowerBuilder Excel(.XLS) Text(.TXT) DOS Access(.MDB) Btrieve DBASE Foxpro(.DbF/.CDX/.NDX) Paradox(.DB,.PX) ODBC Visual Basic IBM DB2 IBM 207

218 Visual Basic 6.0 Visual Basic Microsoft Jet ODBC Data Microsoft Visual Basic 3 DAO RDO ActiveX ADO Visual Basic 6.0 Microsoft Visual Basic Visual Basic ADO Microsoft Visual Basic 6.0 ADO ADO ADO 9.5 ADO ADO ActiveX Data Objects ActiveX UDA Universal Data Access ADO OLE DB ADO IIS VB SQL ADO ADO ADO ADO ADO ADO ADO 1. Microsoft Internet Information Server 208

219 9 Connection Connection / Connection Connection ConnectionString ConnectionTimeout Mode DefaultDatabase IsolationLevel Provider OLE DB Open Close Execute BeginTrans CommitTrans RollbackTrans Attributes Errors Version ADO OpenSchema Command Name Command ActiveConnection Recordset Recordset Dim cnn As New ADODB.Connection ' Dim cmd As New ADODB.Command ' Dim rst As New ADODB.Recordset ' '... cnn.open "..." ' cmd.name = "yourcommandname" ' Name cmd.activeconnection = cnn ' '... ' cnn.yourcommandname "parameter", rst ' ADO 209

220 Visual Basic Command Recordset Command Command CommandText SQL Parameter Execute Recordset CommandType Prepared CommandTimeout ActiveConnection Command Name Command Connection Command Recordset Source Command Connection Execute Recordset Open Command 3. Parameter Command SQL Select WHERE SORT BY Parameter Name Value Attributes Direction Precision NumericScale Size Type AppendChunk 4. Recordset Recordset 210

221 9 Recordset ADO Recordset Recordset CursorType Open CursorType ADO 4 Recordset ADO Recordset MoveFirst MoveLast MoveNext MovePrevious Move AbsolutePosition AbsolutePage Filter Recordset MoveNext Move Recordset BOF EOF Recordset Recordset Update UpdateBatch AddNew Update Delete UpdateBatch Status 5. Field Field Value Field Name Value Type Precision NumericScale DefinedSize ActualSize Attributes Properties AppendChunk GetChunk Field 211

222 Visual Basic 6.0 Connection 6. Error ADO Error Connection Errors ADO Errors Error Error Description Number Source Errors Error SQLState NativeError SQL 7. ADO Property ADO ADO MyObject.Property MyObject.Properties(0) MyObject.Properties("Name") Property Name Type Value 8. ADO 4 Connection Errors Error Command Parameters Command Parameter Recordset Fields Recordset Field Connection Command Recordset Field Properties Property 212

223 ADO ActiveX ADO ADO ActiveX Access ADO ADO DatabaseName ADO ConnectionString ActiveX ActiveX ADO MicrosoftADOData Controls 6.0(OLEDB) ADO ADO

224 Visual Basic ADO ADO 4 ADO ADO Adodc1 Name Caption ADO ADO 1. ConnectionSring ConnectionString ODBC ADO ConnectionString ConnectionString 3 214

225 9 2. RecordSource RecordSource RecordSource 3. UserName Password 4. CursorLocation CursorType CursorLocation aduseclient aduseserver CursorType Visual Basic 4 adopendynamic adopenstatic adopenforwardonly adopenkeyset 5. WillMove MoveComplete WillMove MoveComplete 215

226 Visual Basic WillChangeField FieldChangeComplete WillChangeField FieldChangeComplete 7. WillChangeRecord RecordChangeComplete WillChangeRecord RecordChangeComplete 9.7 ADO ADO Access Friend.mdb Friend Name Telephone ADO

227 9 ADO Friend.mdb ADO ConnectionString ActiveX ODBC 9.6 ConnectionString ODBC Visual Basic Internet

228 Visual Basic 6.0 Access Driver do Microsoft Access (*.mdb) My Sql SQL Server ODBC Microsoft Access Friend Record Friend.mdb OK 218

229 ConnectString ADO RecordSource adCmdText 2-adCmdTable 3-adCmdStoredProc 8-adCmdUnknown 2-adCmdTable Visual Basic Friend.mdb Friend RecordSource Text1 DataSource Adodc1 DataField Name Text2 DataSource Adodc1 DataField Telephone 219

230 Visual Basic 6.0 Friend Friend Visual Basic

231 9 Caption 9-35 Access Classmate.mdb Classmate Classmate Access Classmate ADO ConnectionString 9.6 Classmate Record Classmate.mdb 9.6 RecordSource 2-adCmdTable Classmate 9-7 Text1 Text2 Text3 Text4 DataSource = Adodc1 DataField = ID Caption = DataSource = Adodc1 DataField = Name Caption = DataSource = Adodc1 DataField = Birthday Caption = DataSource = Adodc1 DataField = Caption = 221

232 Visual Basic 6.0 DataSource = Adodc1 Check1 DataField = Sex Caption = DataSource = Adodc1 Image1 DataField = Photo Private Sub Command1_Click() CommonDialog1.FileName = "" CommonDialog1.ShowOpen If CommonDialog1.FileName <> "" Then ' End If End Sub ' ' ' Image1.Picture = LoadPicture(CommonDialog1.FileName) ' Private Sub Command2_Click() End Sub Adodc1.Recordset.AddNew Private Sub Command3_Click() With Data1.Recordset End With End Sub.Delete.MoveNext If.EOF Then.MoveLast ' ' ' ' ' ' ' Private Sub Command4_Click() ' End Sub With Adodc1.Recordset End With.Find "Name LIKE '*" & Text5.Text & "*'", 1, adsearchforward,.bookmark ' ' ' 222

233 9 Private Sub Command5_Click() ' With Adodc1.Recordset.Find"Name LIKE '*"& Text5.Text & "*'", 1, adsearchforward,.bookmark + 1 ' ' ' ' "Name LIKE '*" & Text5.Text & "*' '" "Name LIKE '* *'" ' ' ' 0 ' 1 ' ' ' adsearchforward ' adsearchbackward ' 1 ' End With End Sub

234 Visual Basic Visual Basic Data ADO data ADO 224

235 10 CD CD Intel MMX CPU 10.1 Multimedia Text Audio Picture Image Anvimation Video MicroMedium Digital Trainer Professional Visual Basic ActiveMovie MCI

236 Visual Basic ActiveMovie ActiveMovie MPEG AVI WAVE MIDI Apple QuickTime Visual Basic ActiveMovie Microsoft Windows Common Dialog Controls ActiveMovie ActiveMovie AcitveMovie Windows Windows Media Player 226

237 10 ActiveMovie MPEG DAT ActiveMovie 10-1 ActiveMovie Form AutoStart True ShowPositionControls= True ShowSelectionControls= True BorderStyle 0 BackColor= ClipControls= False Private Sub Form_Load() End Sub ActiveMovie1.FileName = "G:\3.mpg" Showcontrols Showdisplay ShowpositionControls ShowTracker Showselectioncontrols FullscrenMode Moviewindowsize ActiveMovie 10.3 MCI MCI MCI Multimedia Control Interface Microsoft Windows MCI CDAudio Scanner VCR Videodisc DAT DigitalVideo Overlay MMMovie Sequencer MIDI WaveAudio Other MCI MCI Windows MCI Driver Windows MCI Driver MCI VB MCI VB 227

238 Visual Basic 6.0 Multimedia MCI ActiveX Microsoft Multimedia Control 6.0(mci32.ocx) Microsoft Windows Common Dialog Controls Multimedia MCI ActiveX Multimedia MCI Prev Next Play Pause Back Step Stop Record Eject Multimedia MCI DeviceType Form_Load DeviceType DeviceType 228

239 10 MMControl1.DeviceType=DevName DevName MCI OPEN MCI CDAudio VCR Close MCI Command Form.MMcontrol.Command cmdstring$ cmdstring$ Open Close Play Pause Stop Back Step Prev Next Seek Record Eject Sound Save Error WAV Demo.wav Visual Basic MCI Form 10-5 Form_Load Private Sub Form_Load() ' OPEN Form1.MMControl1.Notify =False ' True Open Play Multimedia MCI ' Form1.MMControl1.Wait = True ' True Play Open Form1.MMControl1.Shareable = False ' False MCI Form1.MMControl1.DeviceType = "CDAudio" ' Form1.MMControl1.FileName = "G:\ \.wav" ' Form1.MMControl1.Command = "Open" ' MCI End Sub Play Record wav 229

240 Visual Basic 6.0 Play WAV wave Form_Unload ' Private Sub Form_Unload(Cancel As Integer) MMControl1.Command = "Close" ' End Sub Multimedia MCI Command Close Form_Unload Close Form_Unload Close Form_Unload Visual Basic MCI MP3 MCI MP3 MCI MP3 MCI M3U MP3 M3U Txt M3U M3U MMControl M3U MMControl 10-2 MCI MMControl1 cmdpre cmdnext 230

241 10 cmdplay cmdexit cmdpause cmdopen Timer1 ProgressBar1 CommandDialog1 List1 Microsoft Windows Common Dialog Controls 6.0 Microsoft Common Dialog Controls mp3 Dim MaxVal As Long ' Max Dim MyInd As Integer ' Dim sf As String ' M3U Private Sub cmdexit_click() ' MMControl1.Command = "close" ' 231

242 Visual Basic 6.0 End End Sub Private Sub cmdnext_click() ' PlayNext ' List1.SetFocus ' End Sub Private Sub cmdopen_click() ' On Error GoTo openerr: ' openerr List1.Clear ' CommonDialog1.Filter = "(*.m3u) *.m3u" ' CommonDialog1.ShowOpen ' sf = CommonDialog1.FileName ' sf OpenM3u ' M3U Exit Sub ' openerr: ' End Sub Private Sub cmdpause_click() ' MMControl1.Command = "Pause" ' List1.SetFocus ' End Sub Private Sub cmdplay_click() ' List1.SetFocus ' If MMControl1.Command = "Stop" Or MMControl1.Command = "Pause" Then 232

243 10 MMControl1.Command = "Play" ' Else Call PlayMe ' PlayMe End If End Sub Private Sub cmdpre_click() ' Timer1.Enabled = False ' Timer If MyInd = 0 Then List1.ListIndex = List1.ListCount - 1 ' Else List1.ListIndex = MyInd - 1 ' End If MyInd = List1.ListIndex ' Call PlayMe ' PlayMe End Sub Private Sub Form_Load() ' Timer1.Enabled = False ' Timer Timer1.Interval = 1000 ' List1.BackColor = vbblack ' List1.ForeColor = vbyellow ' MMControl1.Visible = False ' MCI MyInd = 0 ' cmdopen.value = True ' 'OpenM3u ' M3U 233

244 Visual Basic 6.0 'PlayMe ' End Sub Private Sub Form_Unload(Cancel As Integer) ' MMControl1.Command = "Close" ' End Sub Private Sub List1_dblClick() ' MyInd = List1.ListIndex ' cmdplay.value = True ' End Sub Private Sub MMControl1_StatusUpdate() ' If MMControl1.Position = MMControl1.Length Then PlayNext ' End If End Sub Private Sub PlayMe() ' With MMControl1.FileName = List1.List(MyInd) '.Command = "stop" '.Command = "close" '.Command = "Open" '.Command = "play" ' End With 'MaxVal = MMControl1.Length ' MaxVal Timer1.Enabled = True ' Timer Me.Caption = List1.List(MyInd) 234

245 10 ' ProgressBar1.ToolTipText = " " & List1.ListCount & " " '' End Sub Private Sub Timer1_Timer() ' ProgressBar1.Max = MMControl1.Length ' ProgressBar1.Value = MMControl1.Position ' End Sub Private Sub PlayNext() ' Timer1.Enabled = False ' Timer ProgressBar1.Value = 0 ' 0 MyInd = MyInd + 1 ' If MyInd >= List1.ListCount Then MyInd = 0 ' Call PlayMe ' List1.ListIndex = MyInd ' End Sub Private Sub OpenM3u() ' M3U On Error GoTo M3uErr ' M3uErr Dim AllLines As New Collection ' Dim CurrentLine As Long ' Dim nextline As String ' Dim InFile As Integer ' InFile = FreeFile Open sf For Input As InFile 235

246 Visual Basic 6.0 ' While Not EOF(InFile) ' Line Input #InFile, nextline ' AllLines.Add nextline ' Wend Close InFile ' Dim i As Integer ' For i = 0 To AllLines.Count - 1 CurrentLine = CurrentLine + 1 If AllLines.Count < CurrentLine Then CurrentLine = 1 End If If AllLines.Count > 0 Then List1.AddItem AllLines.Item(CurrentLine) ' End If Next i MMControl1.FileName = List1.List(0) ' MCI List1.ListIndex = 0 ' Exit Sub M3uErr: ' M3U End Sub

247 10.m3u myfavorite.m3u m3u AVI MCI AVI Audio Video Interface AVI AVI AVI AVI Visual Basic AVI DEMO.AVI Visul Basic Visual Basic 1 MMControl 1 PictureBox 2 ComandButton Form1 MMControl MMControl1 PictureBox Picture1 2 ComandButton Command1 Command2 Caption Play Close Play Close 237

248 Visual Basic 6.0 Private Sub Command1_Click() ' play MMControl1.FileName = "G:\Robot.avi" ' MMControl1.DeviceType = "AVIVIDEO" ' MCI MMControl1.hWndDisplay = Picture1.hWnd ' AVI MMControl1.Command = "OPEN" ' MCI MMControl1.To = 1 MMControl1.Command = "SEEK" MMControl1.Command = "PLAY" ' End Sub Private Sub Command2_Click() ' Close MMControl1.Command = "STOP" ' End Sub MMC AVI Command Close Form_Unload WAV 238

249 CD Multimedia MCI CD Wav DeviceType CDAudio CD.cda 10.4 MCI *.wav *.mid *.avi Visual Basic EXE 1 Form1 1 MCI MMControl1 1 CommonDialog1 1 Check1 Caption 1 Slider1 3 Label Label1 Label2 Label3 Caption Alignment 2 - Center MnuOpen MnuClose MnuExit ' : Transfer Private Function Transfer(sm As Long) As String s = (sm / 1000 / 60) Mod 60 ' m = (sm / 1000) Mod 60 ' Transfer = Format(s, "00") & ":" & Format(m, "00") ' 239

250 Visual Basic 6.0 End Function Private Sub MMControl1_StatusUpdate() ' On Error GoTo Erropen ' Erropen MMControl1.TimeFormat = 0 ' Slider1.Max = MMControl1.Length / 1000 ' If MMControl1.Position <> MMControl1.Length Then ' Slider1.Value = MMControl1.Position / 1000 ' Else MMControl1.Command = "Prev" ' Slider1.Value = 0 ' 0 End If Label1.Caption = "00:00" ' Transfer Label2.Caption = Transfer(MMControl1.Length / 2) ' Label3.Caption = Transfer(MMControl1.Length) ' Erropen: ' End Sub Private Sub MMControl1_Done(NotifyCode As Integer) MMControl1.UpdateInterval = 100 ' 100 End Sub Private Sub MnuClose_Click() ' MMControl1.Command = "Close" ' MnuClose.Enabled = False 240

251 10 End Sub ' Private Sub MnuExit_Click() ' MMControl1.Command = "Close" ' End End Sub Private Sub Check1_Click() If Check1.Value = 1 Then ' MMControl1.Command = "Play" ' End If End Sub Private Sub MnuOpen_Click() Form1.CommonDialog1.Filter = "MID (*.mid) *.mid WAV (*.wav) *.wav AVI (*.avi) *.avi" ' Form1.CommonDialog1.ShowOpen ' Form1.MMControl1.Notify = False ' True Open Play Multimedia MCI ' Form1.MMControl1.Wait = True ' True "Play" "Open" Form1.MMControl1.Shareable = False ' False MCI MMControl1.DeviceType = "" ' MMControl1.FileName = CommonDialog1.FileName ' MMControl1.Command = "Open" ' MCI MnuClose.Enabled = True ' MCI Slider1.Visible = True 241

252 Visual Basic 6.0 End Sub ' Private Sub MnuPlay_Click() ' Form1.MMControl1.Command = "Play" ' End Sub Windows Clock.avi mp3 wav CD AVI 242

253 11 Internet 11.1 Internet TCP/IP Internet 1. Internet Internet Internet Internet Internet 2. Internet Internet 1969 Internet Internet 3. Internet Internet Internet TCP/IP TCP/IP Transmission Control Protocol/Internet Protocol / Internet TCP/IP TCP/IP TCP/IP

254 Visual Basic Winsock Visual Basic Winsock Internet Winsock Winsock Windows WinSock Winsock UDP TCP Winsock C/S C/S Client/Server / C/S 1. Winsock Winsock 11-1 BytesReceived Long LocalHostName String LocalIP String IP LocalPort Long / Protocol Integer / SckTCPProtocol TCP/IP SckUDPProtocol UDP RemoteHost String / RemoteIP String / IP RemotePort Long / SocketHandle Long Socket State Integer 2. Winsock Winsock 11-2 Accept Close Sub Accept(requested As Long) Sub Close() 244

255 11 Internet Connect GetData PeekData Listen SendDate Sub Connect([RemoteHost],[RemotePort]) Sub GetData(data,[type],[maxLen]) Sub PeekData(data,[type],[maxLen]) Sub Listen() ConnectionRequest Sub SendData(data) 3. Winsock Winsock 11-3 Close ConnectionRequest Connect DataArrival SendComplete SendProgress Error Close Connect Winsock Winsock Visual Basic Winsock Close winsock1.close Visual Basic ftp ConnectionRequest Winsock Winsock TCP UDP 245

256 Visual Basic 6.0 TCP Winsock API Winsock TCP UDP TCP TCP TCP Winsock 1. LocalPort 8000 ftp 21 telnet 23 Web Listen ConnectionRequest requestid Accept requestid SendData Accept requestid Winsock Winsock Winsock sckserver(0) Winsock Winsock DataArrival BytesTotal GetData Close Close TCP/IP 2. Remotehost RemotePort, Connect Connect SendData DataArrival BytesTotal GetData Close Close Winsock Protocol Protocol TCP 246

257 11 Internet UDP scktcpprotocol TCP sckudpprotocol UDP Winsock scktcpprotocol Protocol Winsock Microsoft Winsock Controls

258 Visual Basic Winsock Command1 Command2 Sckconnect Winsock RemoteHost = IP RemotePort= Winsock Command1 Sckserver Winsock LocalPort=1200 Index = 0 0 IP IP

259 11 Internet Form_Load() Private Sub Form_Load() ' sckserver(0).bind sckserver(0).localport ' sckserver(0).listen ' End Sub Private Sub Command1_Click() ' sckconnect.connect sckconnect.remotehost, sckconnect.remoteport ' End Sub ConnectRequest Private Sub sckserver_connectionrequest(byval requestid As Long) ' If sckserver.count = 1 Then ' Load sckserver(1) ' Winsock sckserver(1).accept requestid ' End Sub SendData 11-4 Private Sub Command1_Click() ' sckserver(1).senddata (Text1.Text) ' End Sub Private Sub Command2_Click() ' sckconnect.senddata (Text1.Text) ' End Sub 249

260 Visual Basic DataArrival GetData Private Sub sckserver_dataarrival(byval bytestotal As Long) ' Dim sdata As String ' sckserver(1).getdata sdata, vbstring ' MsgBox sdata ' End Sub 11-5 Winsock Private Sub Form_Unload(Cancel As Integer) ' If sckconnect.state <> sckclosed Then ' Winsock sckconnect.close ' End If End Sub Private Sub sckserver_connectrequest(index As Integer, ByVal requestid As Long) 250

261 11 Internet ' Dim sip As String ' Dim I As Integer ' sip = sckserver(0).remotehostip ' IP I = 1 ' 1 Do While I <= sckserver.ubound ' ' If sckserver(i).remotehostip = sip Then ' sckserver(i).accept requestid ' Socket Exit Sub ' End If I = I + 1 ' Loop Load sckserver(i) ' Winsock Scksrver(I).Accept requestid ' End Sub DataArrival For I = 1 To sckserver.count ' If sckserver(i).state <> sckclosed Then ' Socket sckserver(i).senddata sdata ' Socket End If Next I 251

262 Visual Basic Internet C Visual Basic IP IP IP 252 TxtServerIP TxtLocalPort

263 Winsock TxtRemotePort TxtUserName Command1 Sckconnect Text1 Text2 StatusBar1 11 Internet Winsock Sckserver Text2 StatusBar1 Option Explicit Private IgnoreText As Boolean Private Sub cmdclear_click() Text3 = "" With Text1 253

264 Visual Basic 6.0 'Clear the text window and.text = "" 'return the focus.setfocus End With End Sub Private Sub Command1_Click() ' On Error GoTo ErrHandler ' ErrHandler With sckconnect ' IP.RemoteHost = Trim(txtServerIP) ' '.RemotePort = Trim(txtRemotePort) If.LocalPort = Empty Then '.LocalPort = Trim(txtLocalPort) ' End If End With txtlocalport.locked = True ' sckconnect.connect sckconnect.remotehost, sckconnect.remoteport ' StatusBar1.Panels(1).Text = " " & sckconnect.remotehost & " " Text1.SetFocus ' Exit Sub ErrHandler: MsgBox " ", vbcritical ' End Sub Private Sub Form_Load() ' txtserverip = sckconnect.localip 254

265 11 Internet ' IP txtlocalport = 1014 txtremoteport = 2014 txtusername = " " End Sub Private Sub sckconnect_dataarrival(byval bytestotal As Long) ' Dim cdata As String ' sckconnect.getdata cdata, vbstring ' Text3.SelText = cdata ' 'StatusBar1.Panels(2).Text = " Recieved " & bytestotal & " bytes " ' End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Static Last_Line_Feed As Long ' Dim New_Line As String ' If Trim(Text1) = vbnullstring Then Last_Line_Feed = 0 End If ' ' If KeyAscii = 13 Then '... New_Line = Mid(Text1, Last_Line_Feed + 1) ' Last_Line_Feed = Text1.SelStart ' sckconnect.senddata txtusername & "(" & sckconnect.localip & ")" & New_Line ' IP StatusBar1.Panels(2).Text = " Sent " & (LenB(New_Line) / 2) & " bytes " ' End If End Sub 255

266 Visual Basic 6.0 Private Sub Form_Load() ' sckserver(0).bind sckserver(0).localport ' sckserver(0).listen ' End Sub Private Sub Form_Unload(Cancel As Integer) ' If sckconnect.state <> sckclosed Then ' Winsock sckconnect.close ' End If End Sub Private Sub sckserver_connectrequest(index As Integer, ByVal requestid As Long) ' Dim sip As String ' Dim I As Integer ' sip = sckserver(0).remotehostip ' IP I = 1 ' 1 Do While I <= sckserver.ubound ' ' If sckserver(i).remotehostip = sip Then ' sckserver(i).accept requestid ' Socket Exit Sub ' End If I = I + 1 ' Loop Load sckserver(i) ' Winsock Client sckserver(i).accept requestid 256

267 11 Internet End Sub ' StatusBar1.Panels(1).Text = requestid & " " Private Sub sckserver_dataarrival(index As Integer, ByVal bytestotal As Long) ' Dim sdata As String ' sckserver(1).getdata sdata, vbstring ' Text2.SelText = sdata ' For I = 1 To sckserver.count ' If sckserver(i).state <> sckclosed Then ' Socket sckserver(i).senddata sdata ' Socket End If Next I End Sub

268 Visual Basic HTML Internet Explore Netscape Visual Basic Web Visual Basic Web Internet Explorer Visual Basic Web WebBrowser DHTML HTML 258

269 11 Internet Internet HTTP FTP HTML Visual Basic Web WebBrowser WebBrowser Internet Explorer HTML DHTML Visual Basic WebBrowser Internet Explorer WebBrowser WebBrowser Microsoft Internet Controls WebBrowser HTML Visual Basic WebBrowser URL Navigate HTML Private Sub Form_Load() ' WebBrowser1.Navigate " ' End Sub 259

270 Visual Basic WebBrowser

271 11 Internet CmdBack cmdforward CmdHome cmdrefresh CmdStop Text1 WebBrowser WebBrowser1 Option Explicit Private Sub cmdback_click() ' WebBrowser1.GoBack ' 261

272 Visual Basic 6.0 End Sub Private Sub cmdforward_click() ' WebBrowser1.GoForward ' End Sub Private Sub cmdhome_click() ' Text1.Text = " ' WebBrowser1.Navigate Text1.Text ' End Sub Private Sub cmdrefresh_click() ' WebBrowser1.Refresh ' End Sub Private Sub cmdstop_click() ' WebBrowser1.Stop ' End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) ' If KeyAscii = 13 Then ' If Text1.Text <> "" Then ' WebBrowser1.Navigate Text1.Text ' End If End If End Sub Web 262

273 11 Internet WebBrowser WebBrowser 1. WebBrowser WebBrowser 11-9 AddressBar Boolean True/False Busy DataBindings Document Boolean DataBindings Object True/False Stop / DataBindings LocationName String WebBrowser Web LocationURL String WebBrowser Web URL Web LocationName LocationURL Top Left Single Height Width Single 263

274 Visual Basic 6.0 Name String Path String Resizable Boolean True/False Silent Boolean True/False Type String HTML Windows HTML Viewer 2. WebBrowser WebBrowser GoBack GoForward GoHome GoSearch Navigate Quit Refresh Refresh2 Stop Sub GoBack() Sub FoForward() Sub GoHome() Sub GoSearch() Sub Navigate(URL As String,[Flags],[TargetFrameName], [PostData],[Headers]) URL Sub Quit() Sub Refresh() Sub Refresh2([Level]) Level REFRESH_NORMAL=0 HTTP pragma:nocache REFRESH_IFEXPIRED=1 REFRESH_COMPLETELY=3 HTTP pragma:nocache Sub Stop() WebBrowser 11.4 Internet Winsock WebBrowser Web Visual Basic DHTML Internet 264

275 12 Windows API 12.1 Windows API API API API API API Application Programming Interface Win32 API Microsoft Windows 32 Windows Windows Windows Windows API Windows API Windows Windows Windows Windows API Windows windows Visual Basic Visual C++ Delphi API Win32 API API API Windows API Windows API API API API Windows API Visual Basic Ucase Eof Format

276 Visual Basic 6.0 Visual Basic Visual Basic Windows API Windows API Visual Basic API Visual Basic API 12.2 API Visual Basic API Visual Basic API 1. General API General Private Declare Function Private Declare Sub. Private API OpenFile API Visual Basic Private Declare Function OpenFile Lib "kernel32" (ByVal lpfilename As String, lpreopenbuff As OFSTRUCT, ByVal wstyle As Long) As Long Long 2. API API 12-1 Public Declare Function Public Declare Sub. Public API API API ModifyMenu ModifyMenuBynum API 266

277 12 Windows API 12-1 Visual Basic Public Declare Function ModifyMenu& Lib "user32" Alias "ModifyMenuA" (ByVal hmenu As Long, ByVal nposition As Long, ByVal wflags As Long, ByVal widnewitem As Long, ByVal lpstring As String) Public Declare Sub ModifyMenuBynum& Lib "user32" Alias "ModifyMenuA" (ByVal hmenu As Long, ByVal nposition As Long, ByVal wflags As Long, ByVal widnewitem As Long, ByNum lpstring As Long) Visual Basic Visual Basic Long API 3 Lib Alias ByVal Win32 API Windows DLL Declare Lib DLL Visual Basic DLL API DLL Visual Basic.exe Windows\System Windows DLL DLL Alias API API String Alias ANSI Unicode 267

278 Visual Basic 6.0 API Alias API Windows 9x API A ByVal Visual Basic Visual Basic API API ByVal Visual Basic ByVal ByRef cmdtest Caption Test, Private Sub cmdtest_click() Dim x1$, x2$ ' x1,x2 x1$ = "Test1" ' x1 Test1 x2$ = "Test2" ' x2 Test2 Call test(x1$, x2$) ' test MsgBox x1$ ' MsgBox x1 MsgBox x2$ ' MsgBox x2 ' ByVal ' ByRef End Sub Test Public Function test(byval str1 As String, ByRef str2 As String) str1 = "!" & str1 '! str1 str2 = "!" & str2 '! str2 End Function Test

279 12 Windows API 12-2 Test Test 2 Test! x1 x2 Test x1 x2 x1 ByVal x1 x2 ByRef x2 x2 API Long API Integer Byte String Visual Basic API Windows API API Windows Visual Basic API ExitWindowsEx Visual Basic EXE Form1 Code 'API Private Declare Function ExitWindowsEx Lib "user32" (ByVal uflags As Long, ByVal dwreserved As Long) 269

280 Visual Basic 6.0 As Long CommandButton Form1 Caption code Private Sub Command1_Click() ' ExitWindowsEx &H43, 0 ' API End Sub Visual Basic API Visual Basic IDE API CreateEllipticRgn CreateRoundRectRgn CreatePolygonRgn CombineRgn SetWindowRgn CombineRgn 270

281 12 Windows API Option Explicit 'API Private Declare Function CreateEllipticRgn Lib "gdi32" _ (ByVal x1 As Long, ByVal Y1 As Long, ByVal x2 As Long, ByVal Y2 As Long) As Long Private Declare Function CombineRgn Lib "gdi32" _ (ByVal hdestrgn As Long, ByVal hsrcrgn1 As Long, ByVal hsrcrgn2 As Long, ByVal ncombinemode As Long) As Long Private Declare Function SetWindowRgn Lib "user32" _ (ByVal hwnd As Long, ByVal hrgn As Long, ByVal bredraw As Boolean) As Long Const RGN_XOR = 3 ' 1 Caption Private Sub Command1_Click() Dim x1, x2 ' x1 = CreateEllipticRgn(100, 100, 400, 400) ' x2 = CreateEllipticRgn(200, 100, 500, 400) ' CombineRgn x1, x1, x2, RGN_XOR ' SetWindowRgn hwnd, x1, 1 ' End Sub

282 Visual Basic Windows API API Viusal Basic Windows API API API API 272

283 13 VB ActiveX ActiveX OLE Object Linking and Embedding COM Component Object Model API Visual Basic 6.0 ActiveX ActiveX ActiveX 3 Visual Basic 6.0 ActiveX 13.1 ActiveX ActiveX ActiveX ActiveX ActiveX ActiveX dynamic link library exe dll ocx Visual Basic ActiveX ActiveX ActiveX EXE ActiveX DLL ActiveX DLL ActiveX EXE

284 Visual Basic ActiveX ActiveX-Enabled Microsoft Excel Microsoft Word Microsoft Access Visual Basic Microsoft Excel Microsoft Word Microsoft Access ActiveX ActiveX OLE ActiveX ActiveX VBX VB ActiveX ActiveX ActiveX OLE OLE ActiveX ActiveX Visual Basic Visual C++ Delphi Borland C++ Builder Microsoft ActiveX Microsoft Windows VBX 32 ActiveX VBX ActiveX ActiveX ActiveX ActiveX URL ActiveX ActiveX Internet Internet Explorer ActiveX ActiveX ActiveX ActiveX 13-1 ActiveX Show Hide ActiveX ActiveX IE 274

285 13 VB ActiveX 13-1 ActiveX 13-2 Show 13-3 Hide 13.2 ActiveX Visual Basic Visual Basic Microsoft Word Microsoft Excel Microsoft Access Visual Basic Microsoft Word Visual Basic

286 Visual Basic Microsoft Word Microsoft Word Microsoft Word Microsoft Word Microsoft Word

287 13 VB ActiveX Microsoft Word Visual Basic Microsoft Word Microsoft Word Word Word Visual Basic ActiveX Visual Basic Microsoft Excel Microsoft Excel Microsoft Access Visual Basic ActiveX 13.3 ActiveX Visual Basic ActiveX ActiveX ActiveX ActiveX ActiveX ActiveX

288 Visual Basic ActiveX 2 textbox 1 combobox 2 label 1 commandbutton calculate ActiveX num1 textbox num2 textbox num3 label equal label operator combobox / cal commandbutton Private Sub UserControl_Initialize() End Sub operator.listindex = 0 Private Sub cal_click() Select Case operator.listindex Case 0 num3.caption = CStr(CInt(num1.Text) + CInt(num2.Text)) Case 1 num3.caption = CStr(CInt(num1.Text) - CInt(num2.Text)) Case 2 278

289 13 VB ActiveX num3.caption = CStr(CInt(num1.Text) * CInt(num2.Text)) Case 3 num3.caption = CStr(CInt(num1.Text) / CInt(num2.Text)) End Select End Sub UserControl_Initialize operator.listindex = 0 operator ListIndex 0 list + - * / cal cal_click num1 num2 num3 * num3 num1 num2 CStr Cint num1 num2 Myactivex ctl ActiveX ActiveX ActiveX ActiveX HTML ActiveX ActiveX 279

290 Visual Basic 6.0 ActiveX url url ActiveX ActiveX ActiveX ActiveX ActiveX EXE ActiveX 1. ActiveX EXE ActiveX EXE ActiveX ActiveX EXE EXE ActiveX ActiveX EXE EXE 280

291 13 VB ActiveX ActiveX EXE ActiveX ActiveX ActiveX EXE 281

292 Visual Basic 6.0 EXE ActiveX ActiveX ActiveX ActiveX ActiveX ActiveX ActiveX ActiveX ActiveX ActiveX ActiveX 282

293 13 VB ActiveX ActiveX ActiveX ActiveX Visual Basic ActiveX ActiveX ActiveX VB ActiveX / Visual Basic ActiveX ActiveX ActiveX ActiveX 283

294 Visual Basic ActiveX ActiveX ActiveX ActiveX > < >> <<

295 13 VB ActiveX ActiveX ActiveX / 285

296 Visual Basic ActiveX calculate calculate

297 13 VB ActiveX ActiveX bkcolor setbkcolor mouseinto bkcolor UserControl BackColor mouseinto UserControl MouseMove setbkcolor ActiveX bkcolor UserControl BackColor bkcolor bkcolor Font UserControl BackColor ActiveX MouseMove mouseinto setbkcolor Boolean ByVal color As Long / Public Function setbkcolor(byval color As Long) As Boolean bkcolor = color result = True End Function setbkcolor bkcolor = color bkcolor result = True true Boolean 1 ActiveX ActiveX ActiveX bkcolor 287

298 Visual Basic Private Sub calculate1_mouseinto(button As Integer, Shift As Integer, X As Single, Y As Single) calculate1.setbkcolor &H End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) calculate1.setbkcolor &H F End Sub calculate1 mouseinto calculate1.setbkcolor &H Form1 MouseMove calculate1.setbkcolor &H F bkcolor

299 13 VB ActiveX ActiveX ActiveX ActiveX ActiveX ActiveX ActiveX ActiveX ActiveX 1 Myactive Myactive 289

300 Visual Basic VB VB StandardFont StandardColor otherproperty ActiveX 290

301 13 VB ActiveX otherproperty Enabled BackStyle BorderStyle

302 Visual Basic otherproperty otherproperty otherproperty calculate

303 13 VB ActiveX ActiveX ActiveX.ocx ActiveX Myactive.ocx ocx ocx ActiveX ActiveX ActiveX Myactive ActiveX ActiveX

304 Visual Basic 6.0 Myactive ActiveX ActiveX ActiveX ActiveX ActiveX ActiveX ActiveX ActiveX OCX DLL OCX DLL ActiveX ActiveX DLL ActiveX ActiveX ActiveX ActiveX LIC 13.4 ActiveX ActiveX ActiveX ActiveX ActiveX ActiveX 1. ActiveX ActiveX ActiveX DLL DLL EXE ActiveX EXE 294

305 13 VB ActiveX ActiveX UserDocument Data 2 TextBox 2 Lable Data Data1 Data Name Data1 Connect Access DatabaseName C:\activexdocument\BIBLIO.MDB RecordSource Title Author 13-2 UserDocument1 UserDocument &H00FFC0C0& Text1 Textbox ISBN data1 ISBN Text2 Textbox Au_ID data1 Au_ID Label1 Label ISBN &H00FFC0C0& Label2 Label Au_ID &H00FFC0C0& 295

306 Visual Basic 6.0 C:\activexdocument\BIBLIO.MDB Access VB C:\activexdocument\ Access Access BIBLIO.MDB Title Author ISBN Au_ID IE Data

307 13 VB ActiveX ActiveX ActiveX Project1.exe EXE VBD EXE VBD VBD VBD ActiveX ActiveX ActiveX ActiveX Windows 297

308 Visual Basic 6.0 HTML <html> <head> <title> default </title> </head> <body> <hr> <center> <h1> <a href="userdocument1.vbd">activex </a> </h1> </center> <hr> </body> </html> default.html ActiveX ActiveX ActiveX Caption Private Sub Command1_Click() Hyperlink.GoBack End Sub ActiveX ActiveX 298

309 13 VB ActiveX default.html ActiveX ActiveX ActiveX ActiveX ActiveX 299

310 Visual Basic 6.0 ActiveX ActiveX ActiveX ActiveX

311 13 VB ActiveX ActiveX

312 Visual Basic ActiveX VB ActiveX ActiveX ActiveX ActiveX ActiveX ActiveX 302

313 14 Visual Basic CD 14.1 Student.mdb Access 2000 Visual Basic Access Access Access

314 Visual Basic txtname 2 txtage 1 cmdfirst Caption= " <" 2 cmdlast Caption= " <" 3 cmdprev Caption= " <" 4 cmdnext Caption= " <" 5 cmdsaveas Caption= " <" 6 cmdclose Caption= " <" dlgsaveas Visual Basic Exe ViewMdb.exe 14.2 Visual Studio

315 Visual Basic Visual Basic Visual Basic

316 Visual Basic readme.txt

317 MB

318 Visual Basic Windows Windows

319 14 8. Program Files \Windows\System \Winnt\System ActiveX.ocx Windows 98 Windows NT 4.0 \ProgramFiles\Common Files

320 Visual Basic Setup.exe

321 14 Support Setup.exe

322 Visual Basic /

323 Windows Visual Basic 313