Ps22Pdf

Transcription

1 Visua l Ba sic 6

2 ( ) 158,,,, Windows ;,, A 6, ; B,, Visual Basic, W indows 95/ 98,, : Visual Basic 6 : : (, ) : : : / 16 : : 578 : : : ISBN / T P 2908 :

3 Visual Basic Visual Basic Visual Basic Visual Basic Windows 3 Visual FoxPro Delphi 4 6 Visual Basic Windows VB Visual Basic 6.0

4

5

6 21 C C++ C PASCAL licb@public wh.hb.cn x_fb@163.net 2001

7 1 VB VB VB VB VB VB VB Print Rem End If Select Case For While Do

8 VB Input Box MsgBox T ab

9 MDI MDI MDI MDI MDI

10 10 VB ( SQL) ODBC Dat a Data Data Data Recordset Data DBGrid DBGrid DBGrid DBGrid DBGrid ADO Dat a ADO Data ADO Data ADO Data ADO Data ( SQL ) SQL SQL DAO DAO DBE ngine DBE ngine DBE ngine DBE ngine Workspace W orkspace W orkspace W orkspace Dat abase Database Database T abledef Recordset QueryDef Database Field Field Field Field Index Index Index Index DAO ADO ADO Connect ion Connection Connection Recordset Recordset Recordset Command Command Command Command Parameter Command ADO

11 A VB B

12 1 VB Visual Basic Visual Basic 1.1 VB Visual Basic Basic Visual Basic BASIC Visual Basic Internet 1991 VB DOS Windows 3.x Windows 9.x NT 32 VB 6.0 VB 6.0 Internet Internet Intranet Internet IIS HTML DHTML Web SQL ActiveX ADO

13 2 Visual Basic VB VB VB Microsoft Windows Windows NT VB VB VB VB ActiveX Internet HTML VB VB VB BackOffice SQL Server 1.2 VB VB Microsoft Visual Basic 6.0 Microsoft Visual Basic 6.0 VB VB VB VB EXE ActiveX EXE ActiveX

14 1 VB 3 ActiveX DLL ActiveX DLL ActiveX EXE ActiveX ActiveX VB VB IIS IIS ActiveX ActiveX VB Web Internet Explorer DHTML DHTML VB VB EXE VB Visual Basic 6.0

15 4 Visual Basic VB 1.3 VB VB VB VB VB 1. 1-Microsoft Visual Basic[ ] VB Windows 9.x

16 1 VB 5 13 VB 3. VB 1.3 VB VB 1.2.vbp.frm.bas.cls

17 6 Visual Basic VB VB Form1 Form VB 1.4 VB 1.4 6

18 1 VB VB VB Option Explicit Tab

19 8 Visual Basic VB VB 1.6

20 1 VB VB VB VB ActiveX ActiveX ActiveX

21 10 Visual Basic VB MDI VB 1.8

22 1 VB Windows VB Visual Basic VB (.exe) VB F5 F5 VB VB MDI 7

23 12 Visual Basic VB SDI MDI SDI VB SDI VB 1.2 VB 1.3 VB 1.4 VB 1.5 VB

24 2 VB VB VB VB 2.1 VB VB VB VB VB VB VB

25 14 Visual Basic 2.1 VB

26 2 VB 15 VB Name Caption Left Top Width Height BorderStyle Font Enabled Visible MousePointer TabIndex Appearance BackColor ToolTipText 2.3

27 16 Visual Basic Windows DOS Windows Timer VB Click DblClick Load Unload Resize Change KeyDown KeyUp KeyPress MouseDown MouseUp MouseMove Sub _ ()

28 2 VB 17 Command1 Text1 Sub Command1_Click Text1.Text=" " VB VB BASIC Command [.] [ ] Form1 Print Form1.Print " "

29 18 Visual Basic Basic VB VB VB Click Click 1 2 Load VB VB vbp 2.vbg 3.frm 4

30 2 VB 19.bas Public 5 Visual Basic.cls

31 20 Visual Basic

32 2 VB VB VB VB VB VB 2.2.5

33 22 Visual Basic 1. F2 Ctrl + Tab Ctrl + Tab

34 2 VB exe 1. F5

35 24 Visual Basic Shift + F exe 2.exe 3.exe Windows VB VB EXE VB VB VB VB

36 2 VB Form Form Shift Top Left Ctrl

37 26 Visual Basic Ctrl Top Left Form1 Form1 Caption example Text1 Text Text1 Command1 Caption Form1 2.8

38 2 VB Form VB VB Name _ Command1 Command1_Click Form1 Command1 2.9

39 28 Visual Basic F

40 2 VB 29 VB Form1 example ?

41 3 VB VB VB VB VB 3.1 VB VB VB 255 VB VB VB As Binary ByRef ByVal Date Else Empty Error False For Friend Get Input Is Len Let Lock Me Mid New Next Nothing Null On Option Optional ParamArray Print Private Property Public Resume Seek Set Static Step String Then Time To True WithEvents VB VB VB

42 3 VB VB VB = = 2. VB 3.1 VB 3.1 VB ^ - * / \ Mod + - & VB 3.2 VB = <> > < >= <=

43 32 Visual Basic Like Is VB Not 3.3 VB Not And Or Xor Eqv Imp VB 1. VB VB VB VB 2. _ Rem '

44 3 VB VB VB VB VB 1. " ( ) c1="a":c2=cl+"1":c3="" ~ A F a f &H 4 &H0 &HFFFF 0 7 &0 & 6 &0~& ~ &H &H0&~&FFFFFFF& &O &O0&~&O &

45 34 Visual Basic E D E D E E True( ) False( ) 4. # #12/18/2000# 5. 1 VB VB VBA 2 VB Const [Public Private] Const < > [As < >]=< > < > < > Const PI= Public Const CMax As Integer = 9 Const IDate = #11/30/2000#

46 3 VB 35 Public Const A = B * 2 Public Const B = A / VB 1. VB 1 Option Explicit 2 Option Explicit 1 Dim [As ] 2 Static [As ] 3

47 36 Visual Basic Private [As ] 4 Public [As ] Module1 x Module2 x Module1 x Module1.x Module2 x Module2.x 2. = X X = 5 X = Y X = X + 1 Y X 3. Y X Y X Y X X = Y

48 3 VB Variant VB 1. Integer Long Single Double Currency Integer Long Long Integer Single Double Double Single Dim X As Integer Dim Y As String Y = "10.23" X = Y Y = X + 1 X Y 11.23

49 38 Visual Basic 4. True False Yes No On Off 5. Date # Dim TestDate As Date TestDate=#11/30/2000# TestDate=# # TestDate=#11/30/ :47:29 pm# 6. Variant Variant VB Dim a' Variant a="20" 'a "20"( ) a=a-15 ',a 5 a="c"&a ',a "C5" ( ) Variant Variant Variant Variant & + Variant 3 Empty Null Error 1 Empty Variant Empty IsEmpty Empty If IsEmpty(x) Then x=0 Empty 0 ("") Null Variant Empty 0 ( 0 Null) Variant Empty Empty Variant Variant Empty 2 Null Null Null

50 3 VB 39 Null Null Null Null Null Null Null Variant Null Null Null Null x=null IsNull Variant Null If IsNull(x) And lsnull(y) Then z=null Else z=0 End If Null Variant Null Variant Null Variant ( Null ) Variant Null 3 Error Error CVErr Error 7. (Object) Object Set Object Dim objdb As Object Set objdb=opendatabase("c:\vb6\student.mdb") Object TextBox Control Database Object VB 3.3 VB Variant

51 40 Visual Basic Private 2 Private 3 Public 2. 0 Long [Private Public] -1 As A Private A 6 As Integer To A Private A(1 To 7) As Integer 3. Variant Variant Dim intx As Integer Dim countersa 5 As Integer For intx = 0 To 4 countersa(intx)=5 Next intx Dim countersb 5 As String For intx = 0 To 4

52 3 VB 41 countersb(intx) = "hello" Next intx Dim arrx 2 As Variant arrx 1 = countersa() arrx 2 = countersb() 4. VB Dim Matrix(9,9) as Double Dim Matrix(1 To 9,1 To 9) as Double Variant Public Dim Static Dim 1 MatrixX Dim MatrixX 2 ReDim ReDim -1 MatrixX 9 ReDim MatrixX 8 X=8 ReDim MatrixX X Preserve MatrixX

53 42 Visual Basic ReDim Preserve MatrixX Form1 Private Sub Form_Load() Show Dim student 5 As String * 8 Dim score(5, 5) As Single student 1 = " ": student 2 = " ": student 3 = " " student 4 = " ": student 5 = " " score(1, 1) = 68: score(1, 2) = 84: score(1, 3) = 79 score(2, 1) = 89: score(2, 2) = 92: score(2, 3) = 90 score(3, 1) = 86: score(3, 2) = 69: score(3, 3) = 72 score(4, 1) = 76: score(4, 2) = 62: score(4, 3) = 60 FontSize = 14: FontName = " ": FontUnderline = True Print Print Tab(14); " " Print FontSize = 10: FontName = " ": FontUnderline = False Print " "; Tab(12); " "; Tab(20); " "; Tab(28); " "; _ Tab(36); " "; Tab(44); " " For i = 1 To 4 ' score(i, 4) = score(i, 1) + score(i, 2) + score(i, 3) score(i, 5) = score(i, 4) / 3 Next For i = 1 To 5 ' score(5, i) = (score(1, i) + score(2, i) + score(3, i) + score(4, i)) / 4 Next i For i = 1 To 4 ' Print student(i); Print Tab(12); Format(score(i, 1), "###.0"); Print Tab(20); Format(score(i, 2), "###.0"); Print Tab(28); Format(score(i, 3), "###.0"); Print Tab(36); Format(score(i, 4), "###.0"); Print Tab(44); Format(score(i, 5), "###.0") Next Print FontUnderline = True Print Trim(student(i)); ' Print Tab(12); Format(score(5, 1), "###.0"); Print Tab(20); Format(score(5, 2), "###.0"); Print Tab(28); Format(score(5, 3), "###.0");

54 3 VB 43 Print Tab(36); Format(score(5, 4), "###.0"); Print Tab(44); Format(score(5, 5), "###.0") student score Form1 3.4 VB [Let] = Let Single

55 44 Visual Basic = = = = x = y ' y x y = x ' x y z=x+y x+y=z = x+y x = 2 : y = x : z = x x y z 2 x = 5 x = x + 1 x x st st = "Good" st = st & "morning" st "Good morning" VB Print Print Print BASIC PRINT [.]Print[ ][, ] (Debug) (Printer) Form1.Print "Visual Basic" ' Form1 "Visual Basic" Picture1.Print "Visual Basic" ' Picture1 "Visual Basic" Print "Visual Basic" ' "Visual Basic"

56 3 VB 45 Print Print "aa"&"bb",2*6 ' aabb 12 Print "aa"&"bb";2*6 ' aabb12 Print 14 Print Print Print Print VB Print 1 Tab Tab Print Print# Tab(n) n 1 n n n Mod n 1 Tab n Tab Print Tab(10); " ";Tab(30);" " Print Tab Tab 2 Spc Print Print# Spc n : Spc(n) n Spc Print "ABC";Spc(5); "DEP" ' ABC DFE Print Spc Spc Tab Tab Spc Spc Space Spc

57 46 Visual Basic 3.2 Print Form2 Private Sub Form_Click() Print "aa" & "bb", 2 * 6 Print "aa" & "bb"; 2 * 6 Print Print Now ' Print FontSize = 16 ' Print "12*5="; 12 * 5 Print FontSize = 12 Print "12*5=", 12 * 5 Print FontSize = 14 FontBold = True ' Print " "; FontSize = 10 Print " " Form Rem 3.2 Form2 Rem '

58 3 VB 47 Rem Rem ' Rem End End End End End Stop End Unload QueryUnload Terminate VB End VB End Private Sub Form_Load Dim Password,Pword As String Password = "640129" Pword=InputBox(" ") If Pword<>Password Then MsgBox " " End End If End 3.5 VB If Select Case

59 48 Visual Basic If If 1. If If Then 1 [Else 2] Else Then 1 If Else Else 2 If If Private Function MaxValue1(a As Integer,b As Integer) As Integer If a > b Then MaxValue1 = a Else MaxValue1 = b End Function 2. If 1 If Then End If Then If If If Private Function MaxValue2(a As Integer,b As Integer) As Integer If a > b Then MaxValue2 = a End If If a<=b Then MaxValue2 = b End If End Function

60 3 VB 49 2 If Then 1 Else 2 End If Then 1 If If Else 2 If Private Function MaxValue3(a As Integer,b As Integer) As Integer If a > b Then MaxValue3 = a Else MaxValue3 = b End If End Function 3 If 1 Then 1 ElseIf 2 Then 2 [ElseIf 3 Then 3] [Else n] End If ElseIf ElseIf 3.4

61 50 Visual Basic Private Function Level1(x As Integer) As String If x>=90 Then Level1 = " " ElseIf x>=80 Then Level1 = " " ElseIf x>=70 Then Level1 = " " ElseIf x>=60 Then Level1 = " " Else Level1 = " " End If Select Case If VB Select Case If If Select Case Select Case Select Case Case 1 1 [Case 2 2] [Case Else n]

62 3 VB 51 End Select Case Select Case Select Case Case Else Select Case Select Case Select Case Case 1 Case 1 Case "char" 2 1[ 2] [ n] Case Case 1,3,5,7 Case "a", "b", "c", "d" 3 1 To Case 1 To 4 Case "a" To "z" 4 Is Is = < > <= >= <> Case Is < 3 Case Is > "Apple" Case Is < Is > 12 Case Is < "z", "A" To "Z" Select Case Case Case

63 52 Visual Basic Select Case Case Else Case Case Case Select Case Select Case Private Function Level2(x As Integer) As String Select Case x Case Is>=90 Level2 = " " Case Is>=80 Level2 = " " Case Is>=70 Level2 = " " Case Is>=60 Level2 = " " Case Else Level2 = " " End Select 3.6 For While Do For For For For = To [Step ] [ ] [Exit For] [ ] Next 1

64 3 VB Step 5 6 Exit For For 7 Next For For For Exit For Exit For For Exit For For For 1 n Private Function Sum1(n As Integer) As Integer Dim s,i As Integer For i=1 To n s=s+i Next i Sum1=s End Function 3.3 Form3 Private Sub Form_Click() FontSize = 12 Print Tab(35); " "

65 54 Visual Basic Print Tab(33); " " For i = 1 To 9 For j = 1 To i Print Tab((j - 1) * 9 + 1); i & "*" & j & "=" & i * j; Next j Print Next i Form3 For For For Each in [ ] Next [ ] Next Private Sub Command1_Click For Each Control in Me.Controls Print Control.Name Next Control While While For For

66 3 VB 55 While While While While [ ] Wend True False Wend While 1 n While Private Function Sum2(n As Integer) As Integer Dim s,i As Integer i=1 While (i<=n) s=s+i:i=i+1 Wend Sum2=s End Function Do Do While While Do Do 1 Do [ ] ['

67 56 Visual Basic Exit Do] [ ] Loop [While Until ] 2 Do [While Until ] [ ] [' Exit Do] [ ] Loop Do 1 For While 2 Exit Do Do Exit Do Do 3 Do Loop Exit Do 4 Do For While 5 While Until 1 While Until While Until 2 Loop

68 3 VB 57 1 n Do Private Function Sum3(n As Integer) As Integer Dim s,i As Integer If n=1 Then Sum3=1 Else i=1 Do s=s+i:i=i+1 Loop (i<=n) Sum3=s End If End Function Private Function Sum4(n As Integer) As Integer Dim s,i As Integer i=1 Do While (i<=n) s=s+i:i=i+1 Loop Sum4=s Loop End Function VB 1 Exit For For For For If Then Exit For 2 Exit Do Do 3 Exit Sub Sub 4 Exit Function Function

69 58 Visual Basic 1 n Exit Do Private Function Sum5(n As Integer) As Integer Dim s,i As Integer i=1 Do If (i>n) Then Exit Do s=s+i:i=i+1 Loop Sum5=s End Function 3.7 VB Sub [Private Public][Static]Sub Sub Public VB Click Gen() Click

70 3 VB 59 Command1_Click() Command2_Click() Command3_Click() Gen() VB Name _ Command1 Command1_Click Form Form_Click MDI MDIForm MDIForm_Load Private Sub _ ( ) [ ] Private Sub Form MDIForm_ ( ) [ ] VB Name VB VB Sqr Sin Chr Function Function

71 60 Visual Basic [Private Public][Static]Function ( ) [As ] [ ] Sub Function Function Sub Function 1 = 2 As Variant 3 Function Function Area(a As Single, b As Single, c As Single) As Single Dim s As Single s = (a + b + c) / 2 Area = Sqr(s * (s - a) * (s - b) * (s - c)) End Function VB Function Area Private Sub Command1_Click() Text4.Text = Area(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text)) Sub Function Sub getdata() Function avgdata() VB

72 3 VB Sub Function Sub Sub Function Sub Sub Call Sub ( ) Sub Call Call 3. VB = ( ) Call ( ) VB 4. 1 Form1 SomeSub Form1 Call Form1.SomeSub( ) 2 DemoClass Class1 Dim DemoClass As New Class1 DemoClass.SomeSub DemoClass 3

73 62 Visual Basic Module1 Module2 CommonName Module2 CommonName Module2 CommonName Module1 CommonName Module2 Module1 CommonName Module1.CommonName( ) Variant Function Sqrtab1(a As Single,b as Single) a=a*a:b=b*b Sqrtab=Sqr(a+b) End Function 2. ByVal Function Sqrtab2(ByVal a As Single,ByVal b as Single) a=a*a:b=b*b Sqrtab=Sqr(a+b) End Function 3. VB VB Sqrtab1 a b x y Sqrtab1

74 3 VB 63 Sub Comp() Dim x As Single Dim y As Single Dim z As Single x=3:y=4 z=sqrtab1(x,y) ' x=9,y=16 Sqrtab1 x y Sqrtab1 Sub Comp() Dim x As Single Dim y As Single Dim z As Single x=3:y=4 z=sqrtab1((x),(y)) ' x y 4. Optional Optional c Function CompAdd1(a As Integer,b As Integer,Optional c As Integer) If IsMissing(c) Then CompAdd1=a+b+c Else CompAdd1=a+b End If End Function IsMissing Empty x=compadd1(2,3) ' x 5 y=compadd1(2,3,4) ' y 9 5. c 10 Function CompAdd2(a As Integer,b As Integer,Optional c As Integer=10)

75 64 Visual Basic CompAdd2=a+b+c End Function x=compadd2(2,3) ' x 15 y=compadd2(2,3,4) ' y 9 6. ParamArray CompAdd3 Dim x As Variant Dim s As Integer Dim intsum As Integer Function CompAdd3(ParamArray intnums()) For Each x In intnums s=s+x Next x CompAdd3=s End Function x=compadd3(2,3,4,5) y=compadd3(1,3) ' x 14 ' y VB VB InputBox 1 InputBox(prompt[,title][,default][,xpos,ypos][,helpfile,context]) 2

76 3 VB 65 InputBox$(prompt[,title][,default][,xpos,ypos][,helpfile,context]) $ prompt 1024 title default xpos twip 1 =1440 ypos twip xpos ypos helpfile readme.hlp C:\readme.hlp context helpfile 3.5 Private Sub Command1_Click() m = InputBox(" ", " ", "80") 3.5

77 66 Visual Basic MsgBox VB InputBox MsgBox MsgBox MsgBox MsgBox(prompt[,buttons][,title][,helpfile,context]) title helpfile context Inputbox prompt buttons button vbokonly 0 OK vbokcancel 1 OK Cancel vbabortretryignore 2 Abort Retry Ignore vbyesnocancel 3 Yes No Cancel vbyesno vbretrycancel 4 5 Yes No Retry Cancel VbCritical 16 VbQuestion 32 vbexclamation 48 vbinformation 64 i vbdefaultbutton1 0 vbdefaultbutton2 256 vbdefaultbutton3 512 vbdefaultbutton4 768

78 3 VB 67 vbapplicationmodal 0 vbsystemmodal 4096 buttons buttons 0 OK A ALT + MsgBox buttons MsgBox vbok 1 OK vbcancel 2 Cancel vbabort 3 Abort vbretry 4 Retry vbignore 5 Ignore vbyes 6 Yes vbno 7 No MsgBox VB 1. Chr() ASCII ASCII a ASCII 97 Chr(97) a

79 68 Visual Basic MsgBox " [ ] " 0 " " MsgBox " " 2 " " MsgBox " " 4+32 " " 3.6 MsgBox 2. Val() $ Val("123") Ucase() Ucase("abcd") "ABCD" 4. Lcase() Lcase("ABCD") "abcd"

80 3 VB Sqr() Sqr(16) 4 6. Abs() Abs(-100) Mid() Mid(string, start[,length]) string NULL NULL start length start start Mid("Computer",1,4) "Comp" 8. Format() Format[$](expr outformat) expr outformat VB VB General Number Currency Fixed Standard Percent Scientific

81 70 Visual Basic Yes/No True/False On/Off 0 No Yes 0 False True 0 Off On #. %, 3 E-,E+,e-,e+ : / -,+,$,(,), & < >! Format(125.25, " ") Format(125.25,"#####.###") VB? 1 XYZ 2 True1 3 False 4 1ABC 5 A[7] 6 Y_1 7 IntA 8 A-2 9 A.3 10 "Comp" 3.2???

82 3 VB 71 1 name 2 "name" 3 False 4 ff 5 " " 6 cj 7 "120" 8 n 9 #11/16/2000# VB?

83 72 Visual Basic 3.7 ax 2 bc c >75 20

84 3 VB Rnd A s=1+(1+2)+(1+2+3)+...+( n) 3.15 s n s 4000 n

85 4 VB VB VB VB 4.1 VB Caption Alignment Object.Alignment[= ] ( ) AutoSize Object.AutoSize[=True False] 3 BackStyle Object.BackStyle[= ] 0 1 1( ) 0

86 BorderStyle Object.BorderStyle[= ] 0 1 0( ) 1 5 Caption Object.Caption[= ] 6 WordWrap Object.WordWrap[=True False] True False Move Move left,top,width,height left top width height left Label1 Name Label1 Caption " " BorderStyle 1 BackColor &H00FF8080( ) ForeColor &H000000FF( ) Font _GB

87 76 Visual Basic VB Windows Windows Text Object.Text[= ] 2 MaxLength MultiLine True False

88 4 77 Object.MultiLine [=True False] 4 PasswordChar Text MultiLine False 5 ScrollBars Object.ScrollBars[= ] MultiLine True 6 SelLength SelStart SelText SelLength / SelStart / SelText / Change KeyPress SetFocus 1 Change Sub Text_Change([Index As Integer]) Text Index Index 2 KeyPress Sub Text_KeyPress(KeyAscii As Integer) KeyAscii 3 SetFocus *

89 78 Visual Basic Name Text1 Appearance 0'Flat BackColor &H00FFFFFF& ForeColor &H000000FF& PasswordChar "*" Text2 Text1 Private Sub Text1_Change() Text2.Text = Text1.Text

90 Click VB Cancel Cancel Esc Click Object.Cancel[=True False] True Cancel False Cancel Cancel 2 Caption Object.Captionl[= ] 3 Default Object.Default[=True False] True False 4 Enabled Object.Enabled=True False True False 5 Picture

91 80 Visual Basic Object.Picture[= ] Style 1 6 Style Object.Style[=0 1] 0 1 Picture Click DblClick 1 Click Sub Command_Click([Index As Integer]) Command Index Index 2 DblClick Sub Label_DblClick([Index As Integer]) Click Label1 Command1 Caption " " FontName " " FontSize Picture "Form2.frx":0000 Style 1 Command2 Caption " " FontName " " FontSize 14.25

92 4 81 Private Sub Command1_Click() Label1.Caption = " " Private Sub Command2_Click() Label1.Caption = " " 4.5 command

93 82 Visual Basic 4.4 Value Value 0 Value 1 Value 2 0 Click Caption 2 Value Click Click 4.4.3

94 4 83 Label1 Check1 Check2 Private Sub Check1_Click() Label1.FontBold = Check1.Value Private Sub Check2_Click() Label1.FontUnderline = Check2.Value Caption Alignment Caption 2 Alignment 0

95 84 Visual Basic 1 3 Value True False Click Click Label1 3 Option1 Option2 Option3 Private Sub Option1_Click() Label1.Caption = " DOS" Private Sub Option2_Click() Label1.Caption = " Windows" Private Sub Option3_Click() Label1.Caption = " Linux"

96 Caption Caption Click Click Label1 Frame1 3 Option1 Option2 Option3 Private Sub Option1_Click() Label1.Caption = " DOS" Private Sub Option2_Click() Label1.Caption = " Windows" Private Sub Option3_Click() Label1.Caption = " Linux" 4.9

97 86 Visual Basic Appearance / 3D 2 AutoRedraw / 3 AutoSize 4 Picture / LoadPicture

98 Picture1 4 Command1 Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 Picture1.Picture = LoadPicture("e:\sf\spring.jpg") Case 1 Picture1.Picture = LoadPicture("e:\sf\summer.jpg") Case 2 Picture1.Picture = LoadPicture("e:\sf\fall.jpg") Case 3 Picture1.Picture = LoadPicture("e:\sf\winter.jpg") End Select 4.8 JPEG GIF Appearance

99 88 Visual Basic / 3D 2 Picture / LoadPicture 3 Stretch / False True Stretch 1 Image1 Picture e:\media\ happy.bmp 2 Command1 Command2 Private Sub Command1_Click() ' " " Image1.Width = 1000' Image1.Height = 1000 Image1.Stretch = False Private Sub Command2_Click() ' " " Image1.Width = 1000' Image1.Height = 1000 Image1.Stretch = True

100 Line BorderColor 2 BorderStyle / 0(Transparent) 1(Solid) 2(Dash) 3(Dot) 4(Dash-Dot) 5(Dash-Dot-Dot) 6(Inside Solid) 3 BorderWidth / 4 X1 Y1 / 5 X2 Y2 /

101 90 Visual Basic BorderStyle 3 BorderColor BorderWidth Shape BorderColor BorderStyle BorderWidth FillColor / 2 FillStyle / 3 Shape

102 Shape1 Frame1 6 Option1 Shape Private Sub Option1_Click(Index As Integer) Shape1.Shape = Index 'Index Option

103 92 Visual Basic 4.11 VB MultiSelect 0 1 Space 2 Ctrl Shift 2 ListCount 3 List List List 0 ListCount 1 4 Selected List List List(1) Selected(1) True List(1) Selected(1) False 5 Sorted True False Sorted 6 SelCount MultiSelect 1 2 Selected

104 Style Click 2 AddItem Object.AddItem Item,Index Item Index Index Item Index Sorted True Item Sorted False Item 3 RemoveItem Object.RemoveItem Index Index 4 Clear Object.Clear

105 94 Visual Basic Label1 Label2 List1 List2 Command1 Command2 List1 4 MultiSelect 1 Private Sub Command1_Click() n = List1.ListCount - 1 i = 0 Do While i <= n If List1.Selected(i) Then List2.AddItem List1.List(i) List1.RemoveItem i n = n - 1 Else i = i + 1 End If Loop Private Sub Command2_Click() n = List2.ListCount - 1 i = 0 Do While i <= n If List2.Selected(i) Then List1.AddItem List2.List(i) List2.RemoveItem i n = n - 1 Else

106 4 95 i = i + 1 End If Loop Style

107 96 Visual Basic 2 Text Style 0 1 Text Style 2 Text Text Text List AddItem RemoveItem Change 2 Click 3 AddItem 4 Clear 5 RemoveItem Combo1 Label1 List Private Sub Combo1_Change() Label1.Caption = " " + Combo1.Text Private Sub Combo1_Click() Label1.Caption = " " + Combo1.Text

108 ms /18 s Enabled Object.Enabled=True False True Enabled True 2 Interval ms Interval 1000ms 1s 1s 1s n Interval 1000/n Timer Interval Label1 Label2 Timer1 Interval 100 Private Sub Timer1_Timer() Label2.Caption = Time 4.18

109 98 Visual Basic Path Drive Object.Drive= Drive1.Drive="c:\" 'Drive Drive ChDrive ChDriveDrive1.Drive 2. Path Object.Path=

110 Path 2 Pattern 3 Filename Change Click DblClick Label1 Drive1 Dir1 File1 Private Sub Dir1_Change() File1.Path = Dir1.Path Label1.Caption = "" Private Sub Drive1_Change() Dir1.Path = Drive1.Drive Label1.Caption = "" Private Sub File1_Click() If Len(Dir1.Path) > 3 Then Label1.Caption = " " + Dir1.Path + "\" + File1.FileName Else Label1.Caption = " " + Dir1.Path + File1.FileName End If 4.19 d d COMPUTER GSWDLL.DLL 4.20

111 100 Visual Basic VB 4.21

112 Max Min Max Min 0 Min Max Min Max 2 Value 3 LargeChange 1 4 SmallChange Scroll 2 Change

113 102 Visual Basic label1 Text1 VScroll1 Max 100 Min 0 HScroll1 Max 100 Min 0 Private Sub HScroll1_Change() Text1.Text = HScroll1.Value VScroll1.Value = HScroll1.Value Private Sub VScroll1_Change() Text1.Text = VScroll1.Value HScroll1.Value = VScroll1.Value

114 VB Form1 Label1 Picture1 Frame1 Timer1 Timer2 Command1 Frame1 5 Label2 2 Option1 Combo1 Timer1 Interval 400 Timer2 Label1 Interval 1000 Combo 'n Dim n As Integer Private Sub Form_Load() n = 0 'n Private Sub Command1_Click(Index As Integer) If Index = 0 Then ' Text1(0).SetFocus Else' Text1(0).Text = "" Text1(1).Text = ""

115 104 Visual Basic Text1(2).Text = "" Combo1.Text = "" Option1(0).Value = Empty End If Private Sub Timer1_Timer() ' e:\vbook 1.bmp 16.bmp ' n = n + 1 If n = 16 Then n = 1 fn = "e:\vbook\" + Trim(Str(n)) + ".bmp" Picture1.Picture = LoadPicture(fn) Private Sub Timer2_Timer() ' Label1.Caption = " :" + Str(Time) VB

116

117 106 Visual Basic

118

119 108 Visual Basic bmp e:\media

120 5 VB 5.1 Form VB VB Appearance 3D.Appearance= AutoRedraw.AutoRedraw[=True False] True False 3 BackColor ForeColor 4 BorderStyle.BorderStyle= Caption

121 110 Visual Basic.Caption= 6 FillStyle.FillStyle= Icon 8 MaxButton.MaxButton=True False True False 9 MDIChild MDI.MDIChild=True False True MDI False MDI 10 MinButton.MinButton=True False True False 11 Movable.Movable=True False True False 12 Picture 13 ScaleMode.ScaleMode= Visible.Visible=True False

122 5 111 True False 15 WindowsState.WindowsState= VB 1 Activate 2 Click 3 DblClick 4 Deactivate 5 Initialize MDI 6 Load 7 MouseDown 8 QueryUnload 9 Resize 10 Terminate MDI 11 Unload VB 1 Load VB

123 112 Visual Basic Load VB Load < > Load Form1 Form1 2 Show.Show 0 1 Show VB 3 Hide Visible False VB.Hide Hide VB 4 Unload Unload VB VB 4 1. Initialize Form_Initialize

124 5 113 Form_Initialize Sub Function Property 2. Load Form_Load Form_Load (hwnd) (hdc) Show Form_Load Hide Load Form_Load 3. Form1.Show Form1.Hide ' Form1 ' Form1 Unload QueryUnload QueryUnload QueryUnload QueryUnload Cancel True Unload 4. Nothing Name Nothing Set Form1=Nothing Terminate

125 114 Visual Basic (Name) ( ) Index Null 1. 1 ( ) 2 (Y) 2. Index Tab Microsoft Windows ( ) ( ) Frame Lable Menu Line Image Timer

126 5 115 GotFocus LostFocus GotFocus LostFocus SetFocus Enabled Visible True Enabled Visible Tab Tab Tab Tab 3 Command1 Command2 Command3 Command1 Tab Command2 Command3 Tab Command1 Command3 TabIndex Tab TabIndex Tab TabIndex 0 TabIndex 1 Tab VB Tab Command3 Tab TabIndex TabIndex Tab Tab Tab TabStop False TabStop False Tab Tab Name Caption Picture Proj5.1 Form1 Form1 " " "summer.jpg"

127 116 Visual Basic 5.1 Proj5-1 Form Proj5-1 Form2 BackColor Caption MaxButton = MinButton = &H00FFC0C0& " " 0 'False 0 'False label1 label2 5.3

128 Form2 Private Sub Form_Click() Label2.Caption =" " Private Sub Form_dblClick() Label2.Caption=" " Private Sub Form_Load() Label1.Caption=" " Proj5-1 Form2 5.4 Load label2 5.5 label2 5.4 Form2 (a)

129 118 Visual Basic 5.5 Form2 (b) 5.2 VB

130 Caption - Name Index Caption

131 120 Visual Basic VB Name_Click() Name VB Name_Click() Click Enabled Visible Proj5-1 Form3 label1 5.7

132 Name_Click 5.8 Form3

133 122 Visual Basic Private Sub menu111_click() Label1.Caption = " " Private Sub menu112_click() Label1.Caption = " " Private Sub menu113_click() Label1.Caption = " " Private Sub menu114_click() Label1.Caption = " " Private Sub menu115_click() Label1.Caption = " " Private Sub menu121_click() Label1.Caption = " " Private Sub menu122_click() Label1.Caption = " " Private Sub menu123_click() Label1.Caption = " " Private Sub menu124_click() Label1.Caption = " " Private Sub menu211_click() Label1.Caption = " " Private Sub menu212_click() Label1.Caption = " "

134 5 123 Private Sub menu213_click() Label1.Caption = " " Private Sub menu221_click() Label1.Caption = " " Private Sub menu222_click() Label1.Caption = " " Private Sub menu223_click() Label1.Caption = " " Private Sub menu224_click() Label1.Caption = " " Proj5-1 Form Form3 5.4 Proj5-1 Form4 label1 label2 label3 text1 text2 text Oper... Add... Sub... Mul

135 124 Visual Basic...- Spbar... Div Exit 5.10 Form4 Private Sub Add_Click() Text3.Text = Val(Text1.Text) + Val(Text2.Text) Private Sub Mul_Click() Text3.Text = Val(Text1.Text) * Val(Text2.Text) Private Sub Oper_Click() If Val(Text2.Text) = 0 Then Div.Enabled = False Else Div.Enabled = True End If Private Sub Sub_Click() Text3.Text = Val(Text1.Text) - Val(Text2.Text) Private Sub Div_Click() Text3.Text = Val(Text1.Text) / Val(Text2.Text) Private Sub Exit_Click() End Proj5-1 Form4 text1 12 text text

136 Form4 (a) 5.12 Form4 (b) 5.13 Form4 (c) 5.3

137 126 Visual Basic PopupMenu PopupMenu,flags,x,y,boldcommand flags PopupMenu x flags flags 0 x 4 x 8 x flags 0 2 boldcommand PopupMenu Oper 0 Div Oper Div 5.14 Div Proj5-1 Form5 label1 label2 label3 text1 text2 text3 5.15

138 Form5 Oper... Add... Sub... Mul...- Spbar... Div Oper Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,Y As Single) ' PopupMenu If Button = 2 Then PopupMenu oper, 2 End If Private Sub Add_Click() Text3.Text = Val(Text1.Text) + Val(Text2.Text) Private Sub Mul_Click() Text3.Text = Val(Text1.Text) * Val(Text2.Text) Private Sub Sub_Click() Text3.Text = Val(Text1.Text) - Val(Text2.Text) Private Sub Div_Click() If Val(Text2.Text) <> 0 Then Text3.Text = Val(Text1.Text) / Val(Text2.Text) Else MsgBox " 2 0 ",vbokonly," " End If

139 128 Visual Basic Proj5-1 Form5 text1 10 text Form VB MDI Office Office 97 Word 97 Excel 97 VB MDIChild True MDI MDI MDI 1. MDI 1 MDI 2 3 MDI 4 MDI 5 MDI 6 MDI MDI 7 AutoShowChildren

140 MDI ActiveForm MDI Arrange MDI MDI VB Form1 MDI MDI MDI MDIForm MDI MDI 1. MDI VB Form1 MDI Form1 MDI MDIChild True 2. MDI MDI MDIChild True MDIChild MDI MDI 1. MDI MDI Load MDI Form1 Form2 Private Sub MDIForm1_Load Form1.Show Form2.Show

141 130 Visual Basic 2. MDI MDI UnloadMDI Unload Me QueryUnload MDI MDI 5.6 proj5-2 MDI MDIForm menu1 menu2 menu3 menu MDI MDI Form1 Form2 MDI MDI MDI MDIForm1 Private Sub MDIForm_Load() Form1.Show Form2.Show Private Sub menu1_click()

142 5 131 MDIForm1.Arrange vbcascade Private Sub menu2_click() MDIForm1.Arrange vbtilehorizontal Private Sub menu3_click() MDIForm1.Arrange vbarangeicons Private Sub menu4_click() Unload Me MDIForm MDIForm1 5.19

143 132 Visual Basic 5.7 MDI proj5-3 MDI MDIForm1 Picture1 5, 5.20 Picture1 Align 1 'Top Command1 Caption " " Command2 Caption " " Command3 Caption " " Command4 Caption " " Command5 Caption " " Label1 AutoSize -1 'True 5.20 MDIForm1 MDI Form1 Proj5-1 Form3 MDIForm1 Dim i As Integer Private Sub command1_click() i = i + 1 Dim NewDoc As New Form1 NewDoc.Caption = " " + Str(i) + " " NewDoc.Show Label1.Caption = Str(Forms.Count - 1) + " " Private Sub command2_click() MDIForm1.Arrange vbcascade

144 5 133 Private Sub command3_click() MDIForm1.Arrange vbtilehorizontal Private Sub command4_click() MDIForm1.Arrange vbarrangeicons Private Sub Command5_Click() Unload Me Private Sub Command6_Click() Label1.Caption = Str(MDIForm1.Count) MDIForm1 MDI 4 MDI 5.21 MDI 5.21 MDI Form

145 134 Visual Basic text

146 6 Windows GUI Windows VB 6.1 VB VB.bmp.dib.ico.cur.wmf.emf.jpg.gif Bitmap ( ).bmp.dib Icon Windows ico Metafile.wmf.emf JPEG 8 24 Internet GIF CompuServe 256 Internet 1. VB Image PictureBox

147 136 Visual Basic Image Image( ) Picture Picture LoadPicture() Picture GetData Picture PictureBox Image Print MDI( ) MDI ( ) 2. 1 Picture Picture VB Windows95 VB 2 LoadPicture LoadPicure Picture objectname.picture=loadpicture("[filename]") objectname Name Filename filename ("") Picture picdisplay imgdisplay imgdisplay.picture=picdisplay.picture Picture

148 6 137 objectname.picture=clipboard.getdata([format%]) 6.1 Form1 Picture1 Image1 File1 Picture1 AutoSize True Appearance 0-Flat Image1 Stretch True File1 Path e:\media Pattern *.bmp;*.ico;*.cur;*.jpg Dim filepath As String Private Sub File1_Click() Picture1.Picture = LoadPicture(filepath + "\" + File1.FileName) Image1.Picture = Picture1.Picture Form1.Picture = Picture1.Picture Private Sub Form_Load() filepath = "e:\media" File1.Path = filepath Form1 6.1 HAPPY.BMP 6.1 Form1 File1_Click() LoadPicture() Picture

149 138 Visual Basic AutoSize True 1 2 AutoSize AutoSize ( ) AutoSize True AutoSize True 3 Stretch True Stretch False ( ) 1. Line BorderCo1or QColor() RGB() BorderStyle BorderWidth Line Circle

150 6 139 Shape FillColor FillStyle Form command1 Private Sub Command1_Click() Text4.Text = Text1.Text * Text2.Text * Text3.Text 6.2 Form2 Form

151 140 Visual Basic 6.2 VB Cls Pset Point Line Circle PaintPicture Print Print Set Line Circle ( AutoRedraw ) 6.2.1

152 ( ) VB 7 (0 0) twips Screen( ) VB twips ( ) ScaleMode 6.2 VB ScaleMode 0 ScaleWidth ScaleHeight ScaleTop ScaleLeft VB ScaleMode 0 1 twips 144twips =120twips =240twips CurrentX CurrentY Height Width ScaleHeight ScaleWidth Left Top ScaleLeft ScaleTop ( ) (0 0)

153 142 Visual Basic ( ) 1 ScaleLeft ScaleTop ScaleHeight ScaleWidth ScaleLeft ScaleTop ScaleHeight ScaleWidth Form1 (10 20) (60 50) Form1.ScaleWidth=50 Form1.ScaleHeight=30 Form1.ScaleTop=20 Form1.ScaleLeft= (ScaleLeft ScaleTop) (ScaleLeft+ScaleWidth ScaleTop+ScaleHeight) (ScaleLeft ScaleTop+ScaleHeight) (ScaleLeft+ScaleWidth ScaleTop) (50 100) ScaleLeft=20 ScaleTop=100 ScaleWidth=50 ScaleHeight=-100

154 6 143 Picture1 6.5 Private Sub Form_Load() Picture1.ScaleLeft=-15 Picture1.ScaleTop=-25 Picture1.ScaleWidth=30 Picture1.ScaleHeight=50 (-15,-25) (15,-25) (0 0) X (-15,25) (15,25) Y Scale Scale ScaleTop ScaleLeft ScaleWidth ScaleHeight Scale [formname] [pictureboxname].scale[(x1 y1)-(x2 y2)] (x1 y1) (x2 y2) x1=scaleleft;y1=scaletop;x2=scalewidth+x1;y2=scaleheight+y1 Scale (0 0) Scale Scale(0 2)-(20 0) VB 1. PSet PSet

155 144 Visual Basic DrawWidth PSet [formname] pictureboxname.pset[step](x,y)[,color] (x y) color Long ForeColor color QBColor() RGB() Step ( ) (x,y) 6.3 Form3 Dim mouse As Boolean ' Private Sub Form_Load() mouse = False Me.DrawWidth = 2 ' ( ) Me.ForeColor = vbred ' Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) mouse = True Me.PSet (X, Y) Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If mouse Then Me.PSet (X, Y) Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) mouse = False Form3 Form3 6.6 PSet 6.6 Form3

156 Line Line ( ) 1 Line objectname.line [[Step](x1,y1)]-[Step](x2,y2)[,color] Step (x1,y1) Step (x1,y1) (x1,y1) (0,0) (x1,y1) (CurrentX,CurrentY) (x2,y2) Step (x2,y2) (x1,y1) (x2,y2) color ForeColor DrawWidth DrawStyle DrawStyle vbsolid 0 vbdash 1 vbdot 2 vbdashdot 3 vbdashdotdot 4 vbinvisible 5 vbinsidesolid Form4 Const pi = Private Sub star(x As Single) Randomize n = Int(Rnd * 16) colr = QBColor(n) Line -Step(x * Sin(pi / 10), -x * Cos(pi / 10)), colr Line -Step(x * Sin(pi / 10), x * Cos(pi / 10)), colr Line -Step(-x * Cos(2 * pi / 10), -x * Sin(2 * pi / 10)), colr Line -Step(x, 0), colr Line -Step(-x * Cos(2 * pi / 10), x * Sin(2 * pi / 10)), colr

157 146 Visual Basic Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) PSet (x, y) star (Rnd * 2000) star 2 /10 Rnd Randomize Form4 Form Form4 6.5 Sin x Cos x Sin x Cos x Form5 Picture1 Appearance 0 BackColor 6.5 menu 6.5 menu popmenu...sin x hs 0...Cos x hs 1... hs 2 Const pi = Private Sub Form_paint() With Picture1

158 6 147.Height = Me.ScaleHeight.ScaleMode = 6 oldx =.ScaleWidth / 2 oldy =.ScaleHeight / 2.Cls ' Picture1.Line (oldx,.top)-(oldx,.scaleheight), RGB(255, 0, 0) Picture1.Line (0, oldy)-(.scalewidth, oldy), RGB(255, 0, 0) End With Picture1.CurrentX = oldx - 4 Picture1.CurrentY = oldy ' Picture1.Print 0 For xt = -Int(oldx) To Int(oldx) Step 0.5 If xt <> 0 Then st = xt * 10 * pi Picture1.CurrentX = oldx + st - 3 Picture1.CurrentY = oldy ' x Picture1.Print xt & " " Picture1.Line (oldx + st, oldy - 1)-(oldx + st, oldy), RGB(255, 0, 0) End If Next xt For yt = -5 To 7 If yt <> 0 Then st = yt * 10 Picture1.CurrentX = oldx - 4 Picture1.CurrentY = oldy + st - 1 ' y Picture1.Print yt Picture1.Line (oldx, oldy + st)-(oldx + 1, oldy + st), RGB(255, 0, 0) End If Next yt Label1.Caption = "" Private Sub Form_Resize() Form_paint

159 148 Visual Basic Private Sub hs_click(index As Integer) oldx = Picture1.ScaleWidth / 2 oldy = Picture1.ScaleHeight / 2 Select Case Index Case 0 Label1.Caption = "Sin(x) " For t = -oldx To oldx Step 0.01 xt = 10 * t yt = 10 * Sin(t) Picture1.PSet (xt + oldx, oldy - yt), RGB(0, 127, 127) Next Case 1 Label1.Caption = "Cos(x) " For t = -oldx To oldx Step 0.01 xt = 10 * t yt = 10 * Cos(t) Picture1.PSet (xt + oldx, oldy - yt), RGB(0, 127, 127) Next Case 2 Picture1.Cls Form_paint Exit Sub End Select Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu popmenu, 6 End If Form5 Form5 6.8 Sin x 6.9 Sin x 6.8 Form5 (1)

160 Form5 2 2 Line Line Line B F Line objectname.line[[step](x1,y1)]-[step](x2 y2)[,color],[b[,f]] Step (x1,y1) Step Step (CurrentX,CurrentY) (x2,y2) Step Step (x1,y1) (x1,y1) (CurrentX CurrentY) color ( ) ForeColor B Line ( ) F B ( B ) FillStyle Circle 6.6

161 150 Visual Basic 6.6 FillStyle vbfssolid 0 vbfstransparent 1 ( ) vbhorizontalline 2 vbverticalline 3 vbupwarddiagonal 4 vbdownwarddiagonal 5 vbcross 6 vbdiagonalcross 7 FillStyle 1( ) FillColor Form FillColor DrawWidth DrawStyle 3. Circle Circle DrawWidth DrawStyle FillColor FillStyle Circle 1 Circle objectname.circle [Step](x,y),radius[,color] (x,y) Step (x,y) (CurrentX,CurrentY) Step (x,y) radius color ForeColor FillColor ( ) FillStyle ( ) 6.6 Form6 Private Sub Form_Load() Show Dim X, Y, r, r1, i Randomize ScaleMode = 6 ' mm

162 6 151 DrawWidth = 2 ' 2 X = ScaleWidth / 2 ' r Y = ScaleHeight / 2 If ScaleWidth > ScaleHeight Then r = Y Else r = X End If For r1 = 0 To r ' r1 Circle (X, Y), r1, RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) Next Form Form6 2 Circle 1:1 objectname.circle[step](x,y),radius[,color],,,aspect aspect 1 ( ) 1 1 aspect Form7 Private Sub Form_Load() Show Scale (-15, 14)-(15, -14) Circle (0, 0), 7 Circle (0, 0), 7,,,, 2.5 ' ' '

163 152 Visual Basic FillStyle = 7 Circle (0, 0), 7, RGB(255, 0, 0),,, 0.4 ' 6.11 Form7 3 Circle objectname.circle [Step](x,y),radius[,color][start,end][,aspect] start end 0 2 start end start end start end start end 0 /2 0 /2 0 /2 0 - /2 3 / Form8 Const pi = Private Sub Form_Load() Show ForeColor = vbred DrawWidth = 2 Circle (1800, 500), 1000,, -pi, -1.5 * pi ' Circle (3500, 500), 1000,, pi, 1.5 * pi '

164 Form8 6.9 Form9 Picture1 Frame1 Picture1 Appearance 0 Label1 Label2 Label3 Text1 Text2 Text3 Command1 Const pi = Private Sub Command1_Click() Dim a As Single Dim b As Single Dim c As Single Dim s As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) s = a + b + c If s = 0 Then MsgBox " ", vbokonly, " " Exit Sub End If a = a / s b = b / s Call hb(a, b) Private Sub hb(a As Single, b As Single) Picture1.FillStyle = 0 For i = 0 To 200 Picture1.FillColor = vbred ' Picture1.Circle (1500, i), 1000, vbred, -2 * pi, -2 * pi * a, 2 / 3

165 154 Visual Basic Picture1.FillColor = vbgreen ' Picture1.Circle (1500, i), 1000, vbgreen, -2 * pi * a,-2 * pi * (a + b), 2 / 3 Picture1.FillColor = vbblue' Picture1.Circle (1500, i), 1000, vbblue, -2 * pi * (a + b),-2 * pi,2 / 3 Next Picture1.FillColor = vbred ' Picture1.Circle (1500, i), 1000, vbwhite, -2 * pi, -2 * pi * a, 2 / 3 Picture1.FillColor = vbgreen ' Picture1.Circle (1500, i), 1000, vbwhite, -2 * pi * a,-2 * pi * (a + b), 2 / 3 Picture1.FillColor = vbblue ' Picture1.Circle (1500, i), 1000, vbwhite, -2 * pi * (a + b),-2 * pi, 2 / 3 Command1_Click hb hb 200 For...Next 200 Form9 Form Form9 6.3

166 AutoRedraw True Paint AutoRedraw Paint 1. AutoRedraw ( ) -1(True) 0(False) AutoRedraw True PictureBox AutoRedraw False 2. Paint Paint Circle Line AutoRedraw Paint AutoRedraw AutoRedraw False Paint AutoRedraw Paint AutoRedraw AutoRedraw AutoRedraw AutoRedraw True Paint Paint 6.10 AutoRedraw Paint Form10 Form11 Form10 Command1 Private Sub Command1_Click()

167 156 Visual Basic Form11.Show Form11 Private Sub Form_Click() Me.Scale (0, 0)-(18, 8) Me.AutoRedraw = True Me.DrawWidth = 2 Circle (3, 4), 3, vbred ' Me.AutoRedraw = False Line (7, 1)-Step(4, 6), vbgreen, B ' Line (13, 7)-Step(4, 0), vbblue ' Line Step(0, 0)-Step(-2, -6), vbblue Line Step(0, 0)-Step(-2, 6), vbblue Private Sub Form_Paint() Line (7, 1)-Step(4, 6), vbgreen, B ' Form11 Form_Click() AutoRedraw True AutoRedraw False Form_Paint() Form10 Form10 Form11 Form11 Form11 Form_Click 6.14 Form10 Form10 Form11 Form11 Form Form11

168 Form11 Form11 AutoRedraw True Form11 AutoRedraw False Form_Paint AutoRedraw Paint PaintPicture Printer Picture LoadPicture object.paintpicture pic,dx,dy,dw,dh,sx,sy,sw,sh,opcode object object pic object Picture dx,dy dw,dh sx,sy sw,sh

169 158 Visual Basic opcode PaintPicture Opcode ScaleMode AutoRedraw ScaleMode AutoRedraw True PaintPicture PaintPicture 6.11 PaintPicture Form12 Picture1 Picture2 Command1 Command2 Picture1 Picture Beany.cur Picture2 AutoRedraw True Private Sub command1_click() ' Dim sw, sh, sx, sy As Integer sw = Picture1.ScaleWidth sh = Picture1.ScaleHeight sx = sw sy = 0 Picture2.Picture = LoadPicture("") ' Picture2.PaintPicture Picture1.Picture, 0, 0, sw, sh, sx, sy, -sw, sh Private Sub Command2_Click() ' Dim sw, sh, sx, sy, dw, dh As Integer sw = Picture1.ScaleWidth sh = Picture1.ScaleHeight dw = 1.5 * sw dh = 1.5 * sh sx = 0 sy = sh Picture2.Picture = LoadPicture("") ' Picture2.PaintPicture Picture1.Picture, 0, 0, dw, dh, sx, sy, sw, -sh Form12 Form Picture2

170 Picture Picture GIF JPEG SavePicture SavePicture pic,fn pic fn 6.12 SavePicture Form13 Picture1

171 160 Visual Basic Command1 Picture Winter.jgp Private Sub Command1_Click() SavePicture Picture1.Image, "e:\media\abc.bmp" Picture1 e:\media\abc.bmp VB VB VB VB 6.20

172 Cos(2x)Sin(5x)

173 7 7.1 VB ASCII C

174 7 163 n n+1 n n ( ) 7.2 ASCII Open Open [For [Access ][Lock]As[#] [Len= ] Output Input Append Read

175 164 Visual Basic Write ReadWrite Append Lock Shared LockRead LockWrite FreeFile() Output Output Append Append VB Print #, 1[;][","][; 2[;][","] Write #, 1[, 2] Print Write try.txt txtmytext FileNum=FreeFile() Open "try.txt" For 0utput As FileNum Print #FileNum,txtMyText.Text Close FileNum Input Input #, 1[, 2]{, }, Line Input #, Input$ ( # )

176 7 165 try.txt txtourtext FileNum=FreeFile() 0pen try.txt For Input As FileNum txtourtext.text=input$(lof(filenum),filenum) Close Close [# 1][ # 2] Close ( ) 1. LOF() LOF( ) LOF 1 #1 2. LOC() LOC( ) EOF() EOF( ) True False

177 166 Visual Basic 7.1 Form1 txt MultiLine True Command1 Command2 7.3 Private Sub Command1_Click() ' fno = FreeFile Open "File.dat" For Output As #fno Print #fno, txt.text Close #fno 7.3 Form1 Private Sub Command2_Click() ' txt.text = "" fno = FreeFile Open "File.dat" For Input As #fno Do Until EOF(fno) Line Input #fno, newline txt.text = txt.text & newline & Chr(13) + Chr(10) Loop Close #fno Form1 File.dat 7.4

178 Form Open For Random As # [Len= ] Open Put Put [#],[ ], # 1

179 168 Visual Basic Put #1,student student # Get Get [#],[ ], 1 Get #1,1,student 1 student Put 1 5 Positlon 6 LastRecord = LastRecord + l Put #FileNum, LastRecord Employee N : 'recordnum i=n DO While i<=recordnum Get #1,i+1,recvar Put #,i,recvar i=i+1 Loop ' i recordnum=recordnum-1

180 Kill Name 7.2 Form2 4 4 Text1 4 Command1 Command Form2 ' stud.dat Private Type StudType No As String * 4 Name As String * 10 Age As Integer Class As String * 5 End Type Dim Stud As StudType Dim Recnum As Integer Private Sub Form_Load() For i = 0 To 3 Text1(i).Text = "" Next Private Sub Command1_Click(Index As Integer) On Error Resume Next Recnum = InputBox(" ", " ") If Recnum = 0 Then Exit Sub Open "stud.dat" For Random As #1 Len = Len(Stud)

181 170 Visual Basic If Index = 0 Then totalrec = LOF 1 / Len(Stud) ' For i = totalrec To Recnum Step -1 Get #1, i, Stud Put #1, i + 1, Stud Next Stud.No = Text1(0).Text Stud.Name = Text1(1).Text Stud.Age = Text1(2).Text Stud.Class = Text1(3).Text Put #1, Recnum, Stud End If If Index = 1 Then totalrec = LOF 1 / Len(Stud) ' For i = Recnum To totalrec - 1 Get #1, i + 1, Stud Put #1, i, Stud Next Stud.No = "" Stud.Name = "" Stud.Age = Empty Stud.Class = "" Put #1, i, Stud End If If Index = 2 Then Get #1, Recnum, Stud Text1(0).Text = Stud.No Text1(1).Text = Stud.Name Text1(2).Text = Stud.Age Text1(3).Text = Stud.Class End If Close Private Sub Command2_Click(Index As Integer) End 7.4

182 Open For Binary As # Open Open Len Open Put #,[ ], Put Get #,[ ], Seek Seek Seek() Seek( ) Seek Seek(,recnumber) recnumber Person1 Type Person1 ID As Integer Salary As Currency LastReviewDate As Long FirstName As String*15 LastName As String*15

183 172 Visual Basic Title As String*15 ReviewComments As String*150 End Type 209 Type Person2 ID As Integer Salary As Currency LastReviewDate As Long FirstName As String LastName As String Title As String ReviewComments As String End Type Person2 7.3 Form3 Text1 4 Command1 Command2 Command3 Command4 7.6 Dim mystring As String Private Sub Command1_Click() mystring = String$(10, " ") Get #1, 1, mystring Text1.Text = mystring 7.6 Form3

184 7 173 Private Sub Command2_Click() mystring = String$(26, " ") Get #1, 11, mystring Text1.Text = mystring Private Sub Command3_Click() mystring = String$(26, " ") Get #1, 37, mystring Text1.Text = mystring Private Sub Command4_Click() Close #1 End Private Sub Form_Load() Open "try.dat" For Binary As #1 mystring = " " Put #1, 1, mystring mystring = "abcedfghijklmnopqrstuvwxyz" Put #1,, mystring mystring = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" Put #1,, mystring Form3 Form3 try.dat Form3