Visual Basic Visual Basic dstang2000@263.net 0 Visual Basic 1 0...1 1 Visual Basic...2 2...3 3...6 4...9 5...13 6...16 7...18 8...22 9...24 10...27 11...29 12 API...31 13...34 14...35 15...38 1
1 Visual Basic Visual Basic Visual Basic Visual Basic SayHello.frm ChangeProp.frm FormMouseMove.frm & Event_Drive.frm 1. Visual Basic 2
Button_Label.frm 2. F1 MSDN MSDN Internet Http://www.microsoft.com/vb http://smth.org Visual Basic http://www.vb-helper.com Visual Basic.doc 2 frmhello.frm SomeControls.frm Property.frm PropertyTest.frm MethodTest.frm 2TextSame.frm 3
Shape_Timer.frm Shape : Shape FillColor FillStyle Timer : Interval 4DataType.frm var_define.frm circle_area.frm InputBox, MsgBox.txt Equation.frm 1: 4
Name ForeColor, BackColor FontSize FontName Top Left Width Height Caption/ Picture/ Text / Value Visiable Enabled Ctrl+J F2 2 : Visual Basic.txt 3 Visual Basic W= d+[(13m-1)/5]+y+[y/4]+[c/4]-2c ( mod 7 ) c y m -2( 1 2 13 14 ) d [n] n 1941 12 7 ( ).frm 5
+ btnsayhello btnok cmdok btn lbl txt pic frm lst tmr scr chk CheckBox VB Me, Screen, Printer, App, Debug Me Me. Private Type End Type UDT_Person.frm Private Enum End Enum Enum_Weekday.frm 3 If/ElseIf Select Case 6
statemente_more_line.frm equation_comments.frm assing_ball_move.frm Timer( ) ( : a=a+1) Form_Load assign_swap.frm circle_area_ l.frm circle_area_text_label.frm InputBox MsgBox Print print_format.frm Print, Cls, Format if_pingpong_x.frm If if_leap_year.frm 7
If If if_circle_area.frm If If Select Case if_else_if_case_.frm addsub.frm If Select Rnd Randomize Format print_format.frm Format IIf Choose Switch iif_choose_switch.frm IIf(, 1, 2 ) Choose( a 1 2 ) Switch( 1 1 2 2 ) 1 8
Sqr 1 0 4.1.frm 2 MsgBox [ ] addsub_.frm 4 For Next Do Loop ---- 1-100 for_1_100.frm For 9
Circle99.frm For Circle sum100.frm 1+2+ +100 1*1+2*2 +...+100*100 For sum6_69.frm 6^3+...+69^3 jiaogu.frm Do Loop do while while_5_style.frm do while prime.frm 99.frm 10
draw_circle_3color_5pie.frm fac1_10_for_for.frm 1! +2! +. +10! 2-100 jiaogu_2_100.frm : --- fac1_10_grad.frm 1! + 2! +. + 10! 2_22_222.frm 2+22+222+ Exp_sum Pi_2.frm Pi/2 Pi_4.frm Pi/4 11
GoTo GoTo On GoTo,,, GoTo goto.frm 1 x x=0 For i=1 To 5 For j=i To 5 x=x+1 Next j Next i 15 5 5,4,3,2,1 x 5+4+3+2+1 15 2 1! + 2! + +10! Private Sub Command1_Click() Dim s As Long, f As Long, n As Integer Dim i As Integer ' 1: s = 0 For n = 1 To 10 f = 1 For i = 1 To n f = f * i 12
Next s = s + f Next Print s ' 2: s = 0 f = 1 For n = 1 To 10 f = f * n s = s + f Next Print s End Sub 4037913 4-12 fac1_10.frm 3 Pi Do While 1 1 2 1 2 3 = 1+ + + +L 2 3 3 5 3 5 7 π 4.10 Pi_2.frm 5 13
sub_print100 sub_print100_draw100.frm sub_delay.frm Second Do Loop fac1_10_fun.frm: 1 +2 + +10! 100 prime_fun.frm var_trans.frm ByVal ByRef ByRef var_swap.frm 14
var_byref_byval.frm fun_digi2sum var_static_cnt.frm static var_drag.frm Public Global Private Dim Dim var_trans_byname.frm = var_trans_optional.frm Optional 15
IsMissing var_trans_paramarray.frm ParamArray xxxx() For Each 1 ByVal C n m m!/n!/(m-n)! fun_comb_fac.frm 2 ByVal ByRef 0 49 25 49 2401 01 25 c 0,1,8,25,45,55,99 kblk_square_half_sum.frm 6 16
I/O 6.txt I/O MsgBox / MsgBox "hello", vbinformation InputBox / a = InputBox(" Please Input a num",, 99) Beep Enum Enum_weekday Rnd Int(Rnd * 9) + 1, Randomize Sqr, Abs Sin, Cos Log, Exp Int rnd_luckynum Rnd_ Sqr_triangle_area Len LTrim, RTrim, Trim UCase, LCase Left, Right, Mid InStr Asc, Chr, String str_encrypt, str_instr_email str_num2chinese 17
Date, Time, Now Year, Month, Day, Weekday Hour, Minute, Second DateDiff, DateAdd CInt, CLng, CDbl, CDate, CStr Str, Int, Val Hex, Oct Format Format( Now(), "hh:mm:ss" ) Format( 3.14, "#,###.000" ) IsNumeric, IsDate F1 MSDN MSDN F2 Ctrl+G Print 6.txt 7 : for if : for n=f(n) : f(n) f(n-1) 18
ary_0.frm Dim As ( ) For Each Next Dim a( 2 to 9 ) dim c(10,20) LBound UBound Dim A( ) as Integer n= ReDim A(n) As Integer ReDim Preserve age(i) Dim x(10) As Variant Dim Public( ), Private, Static Sub MySub ( x( ) As Integer) Call MySub( a() ) ary_max_avg.frm ary_sort_sele.frm ary_prime_filter.frm ARY_YSf.frm 19
Fab, For If,, 357_hanxin.frm chicken100.frm chicken_rabbit.frm 13+53+33=153 153_ok.frm 28=1+2+4+7+14 6_28.frm 100_5_2_1.frm x2_dy2_while.frm a = f( a ) sqrt_dd.frm Julia Julia.frm 20
Pi fac_rec.frm fib_recu.frm Celay, Koch caley_new.frm VonKoch.frm ary_str_split_foreach.frm Array() IsArray() Dim ary As Variant ary = Array("apple", "banana", " ") Split() Join() ary = Split("This is a book", " ") j = Join(ary, "@") ary_collection.frm Collection Add Remove Count Item For Each Next 21
1 (Fibonacci) (Fibonacci) 0 l N 6.6.frm 2 6 6-100 6.5.frm 8 CommandButton, Label, TextBox Frame, CheckBox, OptionButton HScrollBar, VScrollBar ListBox, ComboBox PictureBox, Image Label_mouse_shell_263 22
shell " " text_sel_password_enter SetFocus, GotFocus, LostFocus SelStart, SelLength, SelText, Text MultiLine, ScrollBars PasswordChar "*" Locked,Enabled Checkbox_option.frm CheckBox Value(1 0 2):vbChecked OptionButton Value(Ture False) Timer_Shape_Line_Clock.frm Shape / Line Shape / x1,y1,x2,y2 BorderStyle, BorderColor BorderWidth FillStyle, FillColor, BackStyle, BackColor Timer Interval, Enabled Combox_list.frm ListBox ComboList ' ComboList=List + Text Style MultiSelect List(i), ListCount, ListIndex, Selected(i), SelCount AddItem, RemoveItem, Clear 23
Combo Text dance_girl LoadPicture 1 7.1.frm 2 7.2.frm 9 24
draw_simple.frm draw_fun.frm.frm draw_r_cos2th.frm ring.frm draw_diamond.frm form_resize_paint.frm Resize Paint form_screen_save.frm BackColor BorderStyle WindowStatus StartupPosition MousePointer File/Make EXE xxxx.scr xxxx.scr windows form_menu_simple.frm Tools/MenuEditor Ctrl+E) Name) (Caption) & &Open) - ShorCutKey Ctrl+O Checked,Enabled,Visible 25
WindowList (*) Visiable False MouseDown If Button=vbRightButton Then PopupMenu menu5 Draw_XOR_Drag.FRM XOR ScreenSaver form_fs_new.frm new multi_form 1 : Scale r = 3Sin( ) + 3.5 Cos(10 ) Cos(8 ) 26
Draw_Flower.frm 2 Visual Basic Multi_Form 3 Multi_Form 10 MDI progress1.vbp 27
ActiveX ActiveX ActiveX.frm Index line_color_grad_scroll.frm.frm.frm MDI MDI( ) MDI ActiveX Rich Text Box 1 28
1 4X4 5X5 6X6 2 2 MDI MDI ActiveX Rich Text Box MDI snowflake new 11 29
FileCopy_AddLineNum.frm FreeFile On Error DirFind.frm Dir pic_browser DriveList DirList FileList err_divby0 Err err_fordebug.frm ary_prime_filter.frm File_Random_Student BMP 30
File_Read_Bmp BMP BMP File_Find_Recurse Dir err_raise Retry err_retry 1 2 12 API 31
API API API, MCI, Control API GetTickCount Topmost WinRound Bitblt_PaintPicture Bitblt PaintPicture sndplaysound.frm sndplaysound wav Beep_Song.frm Beep MCI CD AVI MCI_Play.frm MCI mcisendstring 32
MMControl CD MMControl wave Media Player Real Player Shockwave Flash Control Flash 1 API API API API RoundRect.frm 2 MCI Agent Speech Agent Speech msagent-hello MCI 33
13 Data ADO DAO ADO SQL DataControl DAO Datactrl_pic Data ADO ADO SQL ADO_Sql ADO SQL RecordSet RecordSet ADO ADO_4_constr_DBGrid Access SQL Server Dsn adodcl_grid_sqlserver Adodc_grid DBGrid (DAO ) DataGrid (ADO ) 34
1 Data ADO Email 2 ADO ADO SQL RecordSet SQL Server 14 Browser FTP Winsock VB OLE VBA VBScript VB ActiveX WebBrowser WebBrowser WebBrowserForm 35
Microsoft Internet Control WebBrowser1. Navigate "http:// / /Web Internet Transfer Control FTP_InetTranfer Microsoft Internet Transfer Control b() = Inet1.OpenURL("ftp:// ", icbytearray) Open "C:\aaa.htm" For Binary Access Write As #1 Put #1,, b() Close #1 Winsock WinSock_chat Winsock Winsock OLE OLE_Create OLE CreateLink CreateEmbed OLE Excel oleexcel VBA macro_addlinenumber_verysimple.vb Word VBA VBScript btnclick_sqr.html 36
<script> VBScript ASP VBScript dbshowtable.asp ASP <% %> VBScript ASP ADO ASP Request ASP Response.Write ASP VBScript TrafficLightOcx ActiveX ActiveX ActiveX ActiveX ActiveX 1 WWW Microsoft Internet Control WWW WWW 2 Visual Basic 37
15 1 VB 1-2 2 VB 3-6 3 7-11 4 VB 12-16 38