Windows Visual Basic 2.0 8 7 29 8 2
Windows 1. Windows 1 1.1. Windows 1 1.2. 1 2. Visual Basic 2 2.1. VisualBasic 2 2.2. Visual Basic 2 2.2.1. 2 2.2.2. 2 2.2.3. 2 2.2.4. 2 2.2.5. 2 2.3. Visual Basic 3 2.4. 4 2.5. 1 4 2.6. 2 5 2.7. 6 2.8. Visual Basic 7 3. 8 3.1. 8 3.2. 9 4. 10 4.1. 10 4.2. 10 4.3. 10 4.4. 12 4.5. 13
Windows 4.6. 13 5. 14 6. Visual Basic 15 6.1. 15 6.2. 15 6.2.1. If End If 15 6.2.2. Select Case 17 6.3. 18 6.3.1. For Next 18 6.3.2. Do Loop 19 7. 19 7.1. 19 7.2. 20 7.3. 20 8. 20 8.1. 20 8.2. 21 8.3. 22 8.4. 22 8.5. 23 8.6. 24 8.7. 27 8.8. 28 8.9. 29 9. 29
Windows 9.1. 29 9.2. 32 9.3. 32 9.4. 33 10. 34 10.1. 34 10.2. 34 10.2.1. 35 10.2.2. 35 10.3. 36 10.4. 36 11. 37 12. 37 13. 38 Microsoft Windows Visual Basic Microsoft Corporation
Windows 1. Windows 1.1. Windows Windows3.1 1-1 1.2. Windows 1 GRPH + F GRPH + O 1 Windows GRPH + C 1 Windows 1
Windows 2. Visual Basic 96 7 2.1. VisualBasic Visual Basic 4.0 Windows95 (Program) 2 2.0 Visual Basic (Hard Ware) 1 Soft Ware) Visual Basic1) 2) 3) C 4) FORTRAN BASIC 5) 2.2.1. Visual Basic 2.2.2. 2.2. Visual Basic Windows Visual Basic 2.0 2.2.4. Windows Windows95 2 2.2.3. 2.2.5. 2
Windows 1) 2) 3) 5) 4) 1 Visual Basic 2.3. Visual Basic Visual Basic (F) Visual Basic.frm (X) OK (Y) (Y) Visual Basic (N) Visual Basic 3
Windows 2.4. Visual Basic Visual Basic 1) 5) 4) 3) 2 1) 2 2.5. 1 2) 1 5) 3) 4
Windows 3 Text Text1 4 Text1 Text1 2-1 Visual Basic Text 2.6. 2 Visual Basic 3 Property 4 Object 5
Windows Visual Basic Visual Basic 1) 2) 3) Visual Basic 1) 2) 3) Text1 Text2 Name 2) Text1 Text 2.7. Text1.Text Visual Basic 6
Windows 2.8. Visual Basic 3 Text1 Text2 1 Name 1 Change KeyDown KeyUp KeyPress GotFocus LostFocus DragOvre DragDrop Text1 Change Text2.Text = Text1.Text Sub Text1_Change () Text1 Text2 1 End Sub 2-1 1 Change 7
Windows Sub Text1_Change () Text2.Text = Text1.Text End Sub 2 Text 2-1 2-1 Text1 Change 3. Text1 Text Text1.Text Text2 Text Text2.Text Windows 2-1 2 3.1. 2-1 = 5 5... Click 8
Windows (E) GRPH 6 3 E End Sub Command1_Click () End Sub 3 Click (&E) Sub Command1_Click () End End Sub 4 E ( ) GRPH+E Caption Caption (E) GRPH+E Caption & 3.2. Command1 Command1 Caption Windows 3-1 6 Windows ALT 98 GRPH 9
Windows 4. Interval TV 4.3. Visual Basic butterf.mak 4.1. Picture samples firstapp Strech butterf.mak True 4-1 butterf.mak False Strech True (F) (O)... 4.2. 10
Windows 2 Caption WindowState 2- BackColor ScaleMode 3- Interval 200 Image1 Name Picture Visible Image2 Name Picture Visible Image3 Name Picture Visible OpenWings bfly1.bmp False CloseWings bfly2.bmp False Main bfly1.bmp True Sub Timer1_Timer () Static PickBmp As Integer If Main.Left > Form1.ScaleWidth Then Main.Move 0 If Main.Top < 0 Then Main.Move Main.Left, Form1.ScaleHeight ' Main.Move Main.Left + 20, Main.Top - 5 If PickBmp Then ' Main.Picture = OpenWings.Picture Else ' Main.Picture = CloseWings.Picture End If ' PickBmp = Not PickBmp End Sub 5 PickBmp 11
Windows Image1 Image2 5 4-2 PickBmp = Not PickBmp Main Imterval Image1 Image2 7 13 If End If If End If 6 6 Main. Main.Left + 20, Main.Top -5 Main 4 buttf Move Sub Command2_Click () Timer1.Interval = Timer1.Interval * 0.5 End Sub (0,0) 6 Interval (0,0) (, ) 4.4. Move Main (F) 20 5 (E)... 2.3 12
Windows 8 8.mak Visual Basic 4.5. _ 40 Hensu = Hensu + 10 Hensu 7 Hensu 10 Hensu 9syu Yama=taku = 4.6. Visual Basic abcde Abcde shiba_1 Ma2suhiro a.b. Masa oka 7 = Hensu 0 = 10 13
Windows 5. Visual Basic opensave.frm sample (F) (O)... picview.mak vb samples firstapp butterf.mak textedit.mak vb samples menus 14
Windows 6. Visual Basic If Select Case 1) 6.2.1. If End If 2) 3) Else If Then True Visual Basic Visual Basic Else End If Else Move End If 6.1. True False 6.2. If Select If Then End If If True 0 False -1 Case butterf.mak If 15
Windows 1) If Hensu > 10 Then 2) If Hensu <> 5 Then 3) If Hensu <= 5 And Hensu >= 1 Then 1) Hensu 10 2) Hensu 5 3) Hensu 5 And Hensu 1 Hensu 1 5 Sub Command1_Click () Hensu = Text1.Text If Hensu = 5 Then Text1.Text = " " Else 3 Text1.Text = "" < <= > >= = <> And Or 6-1 In End If 7 5 If End If 7 If 5 5 6-1 16
Windows 6.2.2. Select Case Select Case Case 1 1 Case 2 Case Else End Select Case If Case Else 6-1 6-1,2 6-2 Hensu 1 3 4 10 Select Case Hensu Case 1,3 Case 4 To 10 Case Else End Select Text1.text = Text1.text = Text1.text = 6-2 17
Windows 6.3. Visual Basic For Next Do Loop For Next 6 Do Loop For i = 1 To 10 6.3.1. For Next Text1.Text = i Next For = To Step Next For Next For Next i Text1 Next Step 1 For I = -1 To 4 Step 2 6-2 6-3 For Step Next I=-1 1 3 I=5 Next Sub Command1_Click () End Sub 8 For Next 6-3 6-3 For Next 18
Windows 6.3.2. Do Loop Do While Loop Do Loop Do Loop Do Until Do Until Loop 1) 2) 3) 4) If 6.2.1 6-4 Do Until Loop 10 Do Until 10 = i i = i + 1 Loop 6-4 Do Loop i 1 i 10 For i = i + 1 To 10 Next 7. 7.1. 19
Windows 7.2. 8. **-**** 47-**** Windows Visual Basic 7 8.1. Visual Basic 7.3. 7 Rows Cols 20
Windows FixedRows ( 0, 0 ) FixedCols 1) ( 4, 4 ) 2) Row Col 8 3) 8-1 8-1 Rows Cols 8.2. 8 End Sub Row Col 9 Text1 Grid1 Grid1.Row = 0 Grid1.Col = 0 8 Sub Grid1_Click () Text1.Text = Grid1.Row & " " & Grid1.Col & " " Grid1 Click Text 21
Windows Col & Grid1.Row Grid1.Col 8-2 8-1 Text1.Text Text1 8-1 8.3. End Sub 10 Text Text 8.4. Grid1 Grid1.Row = 0 Grid1.Col = 0 Grid1.Text = ( 0,0 ) Grid1.Text = 8-1 Row Sub Text1_Change () Grid1.text = Text1.text 22
Windows Sub Grid1_Click () Text1.SetFocus End Sub 11 TAB Focus Windows Enabled True False 8.5. Grid1 Text1 5 23
Windows Sub Grid1_Click() Text1.Text = Grid1.Text Text1.SetFocus End Sub Sub Text1_Change() Grid1.Text = Text1.Text End Sub 8.6. Open For As # 1) Open 2) Print Input 3) Close 1) Output 2) Input Open Print #, Open, 24
Windows Print #1, Hensu1,, Hensu2, ;, 12 adress.dat ; a: vb adress.dat Input #, 1,... Windows Input Close # 12 ReDim GridDate(4) GridData Close GridData(0) GridData(1) GridData(2) GridData(3) 8-3 GridData(4) ReDim ReDim ( ) ReDim ( To ) ReDim 0 To 9 For Next 1 1 1 2 3 4 25
Windows Sub Command1_Click () ReDim GridData(4) ' File_Name = "addess.dat" ' ' 1 Open File_Name For Output As #1 For Gyou = 0 To Grid1.Rows - Grid1.FixedRows Grid1.Row = Gyou For Retu = 1 To Grid1.Cols - Grid1.FixedCols Grid1.Col = Retu ' 1,1 ' GridData(Retu) = Grid1.Text Next ' 1 4 Print #1, GridData(1) ; GridData(2) ; GridData(3) ; GridData(4) Next Close #1 End Sub ' 12 12 adress.dat Print # ; Print #1, GridData(1) ; "," ; GridData(2) ; "," ; GridData(3) ; "," ; GridData(4) ; ", " ; 8-4 12 Gyou For 0 26
Windows 8.7. Sub Command2_Click () ReDim ReadData(4) As String ' File_Name = "addess.dat" ' ' 1 Open File_Name For Input As #1 Gyou = -1 ' Do Until EOF(1) ' #1 ' 1 4 Input #1, ReadData(1), ReadData(2), ReadData(3), ReadData(4) Gyou = Gyou + 1 ' ' If Gyou >= Grid1.Rows Then Grid1.AddItem " " Grid1.Row = Gyou For Retu = 1 To Grid1.Cols - Grid1.FixedCols ' 1 ' Grid1.Col = Retu Grid1.Text = ReadData(Retu) Next Loop Close #1 End Sub ' 13 27
Windows 8.8. AddItem For Next Do Until Loop 13 RemoveItem EOF(1) EOF End Of File RemoveItem EOF ( ) Open 1 AddItem If AddItem AddItem 8-2 Grid1.SelEndRow " " 10 28
Windows Sub Command3_Click() Grid1.AddItem " ", Grid1.SelEndRow + 1 End Sub 14 Sub Command4_Click() Grid1.RemoveItem Grid1.SelEndRow End Sub 15 14 SelEndRow + 1 8-2 8.9. 9. 9.1. InpuxBox$ 16 InputBox$ KeyWord 8-4 8-2 29
Windows InpuBox$ ( OK 1) 2) 3) OK 11 InputBox$ Sub Command5_Click() ReDim SarchedData(4) Dim Sarch As String ' InputBox$ Msg = " " & Chr$(10) & Chr$(13) Msg= Msg & Title = " " Default = " " ' KeyWord KeyWord = InputBox$(Msg, Title, Default) 16 30
Windows Kensu = 0 ' For Gyou = 1 To Grid1.Rows - Grid1.FixedRows Grid1.Row = Gyou Sarch = "" ' For Retu = 1 To Grid1.Cols - Grid1.FixedCols Next Grid1.Col = Retu ' Sarch Sarch = Sarch & Grid1.Text ' InStr Sarch ' SarchResult SarchResult = InStr(1, Sarch, KeyWord) If SarchResult <> 0 Then End If ' Kensu Kensu = Kensu + 1 ' ' SarchedData For Retu = 1 To Grid1.Cols - Grid1.FixedCols Next Grid1.Col = Retu SarchedData(Retu) = Grid1.Text ' Sarched ' Grid1.Row = Kensu For Retu = 1 To Grid1.Cols - Grid1.FixedCols Next Grid1.Col = Retu Grid1.Text = SarchedData(Retu) Next 17 31
Windows 9.2. 17 For Next 9.3. Kensu Sarch Kensu InStr SarchResult = InStr(1, Sarch, KeyWord) KeyWord 2 Sarch Sarch 1 Sarch SarchResult Sarch SarchResult 0 1 Kensu 1 12 32
Windows ' If Kensu <> 0 Then ' KesuGyouSu = Grid1.Rows - Grid1.FixedRows - Kensu ' For Gyou = 1 To KesuGyouSu Grid1.RemoveItem Kensu + 1 Next Else End If ' Msg = " " If KeyWord <> "" Then MsgBox Msg, 0, " " End Sub 18 9.4. MsgBox RemoveItem 18 Kensu MsgBox Rows FilexdRows Kensuu RemoveItem For Next OK 33
Windows 34 16 18 Command_Click 10. Windows 10.1. 10.2. 13 (P)
Windows (X) 0 1 2 (M) mnufile mnu 1 2 mnu 0 mnu 1 mnu 2 OK OK 0 1 2 10.2.2. 10.2.1. Select Case (I) mnufile 0 35
Windows Sub mnufile_click( Index As Integer ) Select Case Index ' Index = 0 Command1_Click Case 0 Command1_Click ' Index = 1 Command1_Click Case 1 Command2_Click ' Index = 2 Case 2 End End End Select End Sub 19 10.3. mnurow mnufile_click 10-1 Integer Command1_Click Index 10.4. Select Case 0 Index 0 mnufile_click Sub mnu_click(index As Integer) Case 0 Select Case Index Case 2 Command5_Click End Select Comman1 End Sub 36
Windows OK Command5_Click 11. 12. Visual Basic EXE Windows Visual VBRJP200.DLL Basic VER.DLL EXE (K)... Icom Icon EXE Windows Visual Basic EXE 14 EXE 8 8.EXE 37
Windows 13. Windows Visual Basic 8 8 38