VB \u00a71<\/p>\n
\u4e00\u3001\t\u57fa\u672c\u6982\u5ff5\uff1a
\n1\u3001\tVisual Basic 1991\u5e74\u5fae\u8f6f\u63a8\u51fa
\nVB6.0\u662f\u76ee\u524d\u6d41\u884c\u7248
\n\u6709\u4ee5\u4e0b\u51e0\u79cd\u7248\u672c
\nA\u3001\t\u5b66\u4e60\u7248\u2014\u2014\u65e2\u6f14\u793a\u7248
\nB\u3001\t\u63a7\u4ef6\u88c1\u521b\u5efa\u7248\u2014\u2014\u914d\u6709\u5168\u90e8\u7279\u6027\uff0c\u4f46\u53ea\u7528\u4e8e\u521b\u5efa\u53ef\u6267\u884c\u7684activex\u63a7\u4ef6
\nC\u3001\t\u4e13\u4e1a\u7248\u2014\u2014\u521b\u5efa\u7528\u4e8ewindows\u6240\u6709\u7c7b\u578b\u768432\u4f4d
\nD\u3001\t\u4f01\u4e1a\u7248\u2014\u2014\u4e0e\u4e13\u4e1a\u7248\u540c\uff0c\u518d\u52a0\u4e0a\u4f01\u4e1a\u8303\u56f4\u4f7f\u7528\u7684\u5ba2\u6237\u673a\/\u670d\u52a1\u5668\u5e94\u7528\u7a0b\u5e8f\u6240\u6709\u5de5\u5177
\nE\u3001\t\u5e94\u7528\u7248\u2014\u2014vba
\nF\u3001\t\u811a\u672c\u8bed\u8a00\u7248\u2014\u2014vb script
\n2\u3001\t\u4f01\u4e1a\u7248\u7684\u51e0\u5927\u6a21\u5757
\nA\u3001\tVB\u7684Database
\nB\u3001\tVBA
\nC\u3001\tVB for Win32 API
\nD\u3001\tVB Activex \u7a0b\u5e8f\u7684 OLE
\nE\u3001\tWEB
\n3\u3001\tVB\u7684\u4f18\u70b9
\nA\u3001\t\u53ef\u89c6\u5316\u7f16\u7a0b\u73af\u5883\u2014\u2014\u5bf9\u8c61Object\uff0c\u5c5e\u6027Property\uff0c\u4e8b\u4ef6Event\uff0c\u65b9\u6cd5Method\uff0c\u52a8\u4f5cAction\uff08Click\u3001Keydown\uff09
\nB\u3001\t\u5f3a\u5927\u7684\u6570\u636e\u5e93\u652f\u6301\u7f16\u7a0b\u2014\u2014
\n\u63d0\u4f9b\u6570\u636e\u5e93\u63a7\u4ef6
\n\u8fc5\u901f\u751f\u6210\u64cd\u4f5c\u754c\u9762\u2014\u2014\u7528\u6237\u2014\u754c\u9762\u2014JET\u2014Database
\nC\u3001\t\u5f15\u5165DAO\u3001RDO\u3001ADO
\nDAO\uff1aDATABASE OBJECT
\nRDO\uff1aRemote Database Object
\nADO\uff1aActive Database Object
\nD\u3001\t\u652f\u6301\u5168\u9762\u7684SQL\u67e5\u8be2\u2014\u2014Structure Query Language
\nE\u3001\tVB\u7684WEB\u7f16\u7a0b
\nF\u3001\t\u4e8b\u4ef6\u9a71\u52a8\u7f16\u7a0b\u673a\u5236
\nG\u3001\t\u7ed3\u6784\u5316\u8bbe\u8ba1\u8bed\u8a00
\nH\u3001\t\u5145\u5206\u5229\u7528Windows\u8d44\u6e90
\n\u4e8c\u3001\t\u5f00\u53d1\u73af\u5883
\n1\u3001\t\u83dc\u53552\u3001\u5bf9\u8c61\u7a97\u53e3\u3001\u5bf9\u8c61\u4ee3\u78013\u3001\u63a7\u4ef6\u5de5\u5177\u680f\u300b\u5de5\u7a0b*\u90e8\u4ef64\u3001\u5c5e\u6027\u7a97\u53e3
\n\u4e09\u3001\t\u7a97\u53e3\u754c\u9762\u7684\u5efa\u7acb\uff08Commandbox textbox label\uff09<\/p>\n
\u56db\u3001\t\u8bed\u8a00\u8bed\u6cd5
\n\u89c4\u5219\uff1a\u5fc5\u987b\u4ee5\u82f1\u6587\u5f00\u5934\u3001\u4e0d\u5305\u542b\u5c0f\u6570\u7a7a\u683c\u3001\u957f\u5ea6\u4e0d\u8d85\u8fc7255\u4e2a\u5b57\u7b26\u3001\u4e0d\u80fd\u4f7f\u7528\u5173\u952e\u5b57
\nEg\u3001\u5b9a\u4e49\uff1adim(public\u3001static\u3001const) x as integer
\n1\u3001\t\u7c7b\u578b\uff1a
\ninteger:2B -32768~32768
\nlong:4B\t-2147483648~2147483648
\nsingle:4B\t\t-3.402823E38~-1.401298E-45 \t\t\t1.401298E-45~3.402823E38
\ndouble:8B\t-1.79769313486232D308~-4.94065645841247D-324
\n\t\t\t4.94065645841247D-324~1.79769313486232D308
\nCurrency:8B
\nByte
\nString:\u5b9a\u957f0~65400\t\t\u53d8\u957f\uff1a20\u4ebf\u4e2a
\nDate:8B\t\t\u516c\u5143100\u5e741\u67081\u65e5~9999\u5e7412\u670831\u65e5
\n\t\t\u683c\u5f0f\uff1a#January 1,1993#\u6216#1 Jan 93#
\n\t\t\t\t#93\/10\/20#\t\t\uff08\u4e2d\u56fd\uff09
\n\t\t\t\t#10\/20\/93#\t\t\uff08\u897f\uff09
\nBooleanL:2B
\nObject:4B
\nVariant: \u6570\uff1a16B \u5b57\u7b26\uff1a22+\u5b57\u7b26\u957f\u5ea6B
\n\t\tEg\u3001if Isempty(Z) then z=0
\n If isNull(x) and isNull(y) then
\nZ=null
\nElse
\nZ=0
\nEnd if
\n2\u3001\t\u7528\u6237\u81ea\u5b9a\u4e49
\ntype Mytype
\nmyName as string
\nmyBir as Date
\nMySex as integer
\n End type
\n3\u3001\t\u5e38\u91cf
\n[public | private] const x [as datatype]=\u8868\u8fbe\u5f0f<\/p>\n
\u7cfb\u7edf\u5e38\u91cf F2\u952e
\n4\u3001\t\u6570\u7ec4
\ndim x1(9) as string
\ndim x2(0 to 9) as string
\ndim x3(1 to 9) as string<\/p>\n
\u4e94\u3001\t\u8bed\u53e5
\n1\u3001if\u8bed\u53e5
\nA\u3001\tIF [Condition] then [code]
\nB\u3001\tIF [Condition] then
\nCode
\nElseif [Condition] then
\nCode
\nElseif [Condition] then
\nCode
\nElse
\nCode
\nEndif<\/p>\n
eg\u3001
\ndim I as integer
\nprivate sub cmd1_click()
\nprint \u201cwelcome\u201d
\nI=I+1
\nEnd sub<\/p>\n
Private sub cmd2_click()
\nIf I>=3 then
\nPrint \u201cgood bye\u201d
\nElse
\nPrint \u201cclick left again\u201d
\nEnd if
\nEnd sub<\/p>\n
Eg2
\nIf B+C<>0 then
\n D=A\/(B+C)
\nElse
\nPrint \u201c\u4e0d\u80fd\u6c42\u503c\u201c
\nEnd if
\nEg3 y=1(X>0) 0(x=0) -1(x<0)\n\n2\u3001\tSELECT\u8bed\u53e5\nSelect case variable\nCase [result1]\n[code 1]\nCase [result2]\n[code 2]\nCase [result3]\n[code 3]\n.\n.\nCase else\n[code x]\nend select\n\neg\u3001select case I\ncase 3\nprint \u201cyou have clicked 3 times\u201d\ncase 10\nprint \u201cyou have clicked 10 times\u201d\nend select\n\n\u516d\u3001tab\u63a7\u4ef6\n\n\u4e03\u3001\u4f5c\u4e1a\uff1a\u8ba1\u7b97\u5668 \n\n\n\n\n\n\u00a72 timer\n \n1\u3001\tfor \u5faa\u73af\nfor I=1 to 10 step1\ncode\nnext [I]\neg1:\nt=0\nfor I=2 to 10 step 2\nt=t+I\nprint\nnext I\neg2\nfor j=1 to 5\n for I=2 to 8\n\u2026.\nNext j\nNext I\nEg3:\u6c42n!\nDim n as integer\n N=inputbox(\u201cEnter N:\u201d)\n K=1\nFor I=1 to n\n K=K*I\n Next\nPrint N; \u201c!=\u201d;k\n\n2\u3001\t do while [condition] (\u6210\u7acb\u6761\u4ef6)\ncode\nloop\n3\u3001\tdo until [condition]\t\t(\u4e0d\u6210\u7acb\u6761\u4ef6)\ncode\n\tloop\n4\u3001\tdo \ncode\n loop until [condition]\neg\u3001\u65f6\u95f4\u6682\u505c\nPublic Sub PauseTimeNumber(pausetime As Single)\n Dim Start As Single\n Start = Timer\n Do While Timer < Start + pausetime\n DoEvents\n Loop\nEnd Sub\n5\u3001\u51fd\u6570(\u81ea\u5b9a\u4e49)\npublic function Max1(va,va2) \u2019\u6c42\u6700\u5927\u503c\nif v1>=v2 then
\nmax=v1
\nelse
\nmax=v2
\nend if
\nend function
\n5\u3001\t\u5185\u90e8\u51fd\u6570
\nval,str,mid\uff0cleft\u7b49
\n6\u3001\tInputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
\nDim Message, Title, Default, MyValue
\nMessage = “Enter a value between 1 and 3”
\nTitle = “InputBox Demo” ‘ \u8bbe\u7f6e\u6807\u9898\u3002
\nDefault = “1” ‘ \u8bbe\u7f6e\u7f3a\u7701\u503c\u3002
\n‘ \u663e\u793a\u4fe1\u606f\u3001\u6807\u9898\u53ca\u7f3a\u7701\u503c\u3002
\nMyValue = InputBox(Message, Title, Default)
\n7\u3001MsgBox(prompt[, buttons] [, title] [, helpfile, context])
\n\u672c\u793a\u4f8b\u5047\u8bbe DEMO.HLP \u4e3a\u4e00\u5e2e\u52a9\u6587\u4ef6\uff0c\u5176\u4e2d\u6709\u4e00\u4e2a\u5185\u5bb9\u4ee3\u7801\u4e3a 1000\u3002
\nDim Msg, Style, Title, Help, Ctxt, Response, MyString
\nMsg = “Do you want to continue ?” ‘\u4fe1\u606f\u3002
\nStyle = vbYesNo + vbCritical + vbDefaultButton2 ‘ \u5b9a\u4e49\u6309\u94ae\u3002
\nTitle = “MsgBox Demonstration” ‘ \u6807\u9898\u3002
\nHelp = “DEMO.HLP” ‘ \u5b9a\u4e49\u5e2e\u52a9\u6587\u4ef6\u3002
\nCtxt = 1000 ‘ \u5b9a\u4e49\u6807\u9898
\n ‘ \u4e0a\u4e0b\u6587\u3002 ‘ \u663e\u793a\u4fe1\u606f\u3002
\nResponse = MsgBox(Msg, Style, Title, Help, Ctxt)
\nIf Response = vbYes Then
\n MyString = “Yes” ‘ \u5b8c\u6210\u67d0\u64cd\u4f5c\u3002
\nElse ‘ \u7528\u6237\u6309\u4e0b\u201c\u5426\u201d\u3002
\n MyString = “No” ‘ \u5b8c\u6210\u67d0\u64cd\u4f5c\u3002
\nEnd If
\n7\u3001\t\u4f5c\u4e1a\uff1ay=ax2+bx+c P176(\u6f6d\u6d69\u5f3a)
\n101~1000\u7684\u548c<\/p>\n
\u00a73 picturebox Commondialog image shape line check option frame
\n1\u3001PictureBox \u63a7\u4ef6\u53ef\u4ee5\u663e\u793a\u6765\u81ea\u4f4d\u56fe\u3001\u56fe\u6807\u6216\u8005\u5143\u6587\u4ef6(\u5c06\u56fe\u8c61\u4f5c\u4e3a\u7ebf\u3001\u5706\u6216\u591a\u8fb9\u5f62\u8fd9\u6837\u7684\u56fe\u5f62\u5bf9\u8c61\u6765\u5b58\u50a8\uff0c\u800c\u4e0d\u662f\u5b58\u50a8\u5176\u50cf\u7d20\u3002\u5143\u6587\u4ef6\u7684\u7c7b\u578b\u6709\u4e24\u79cd\uff0c\u5206\u522b\u662f\u6807\u51c6\u578b.wmf\u548c\u589e\u5f3a\u578b.emf\u3002)\uff0c\u4ee5\u53ca\u6765\u81ea\u589e\u5f3a\u7684\u5143\u6587\u4ef6\u3001JPEG \u6216 GIF \u6587\u4ef6\u7684\u56fe\u5f62\u3002\u5982\u679c\u63a7\u4ef6\u4e0d\u8db3\u4ee5\u663e\u793a\u6574\u5e45\u56fe\u8c61\uff0c\u5219\u88c1\u526a\u56fe\u8c61\u4ee5\u9002\u5e94\u63a7\u4ef6\u7684\u5927\u5c0f\u3002
\nPictureBox \u63a7\u4ef6\u548c Data \u63a7\u4ef6\u662f\u552f\u4e00\u53ef\u4ee5\u653e\u7f6e\u5728 MDI \u7a97\u4f53\u5185\u90e8\u533a\u57df\u7684\u6807\u51c6\u63a7\u4ef6<\/p>\n
PictureBox\u5c5e\u6027\u81ea\u52a8\u8c03\u6574\u5927\u5c0fAutoSize = True
\nobject.Picture [= picture] \u6216LoadPicture([filename], [size], [colordepth],[x,y])
\nsize \u7684\u8bbe\u7f6e\u503c\u4e3a\uff1a
\nvbLPSmall\t0\t\u7cfb\u7edf\u5c0f\u56fe\u6807\u3002
\nvbLPLarge\t1\t\u7cfb\u7edf\u5927\u56fe\u6807\uff0c\u7531\u89c6\u9891\u9a71\u52a8\u7a0b\u5e8f\u51b3\u5b9a\u3002
\nvbLPSmallShell\t2\t\u5916\u58f3\u5c0f\u56fe\u6807\u5927\u5c0f\uff0c\u7531\u201c\u63a7\u5236\u9762\u677f\u201d\u4e2d\u7684 Display Properties \u5bf9\u8bdd\u6846\u4e2d Appearance \u9009\u9879\u5361\u4e0a\u7684 Caption Buttons \u7684\u5927\u5c0f\u8bbe\u7f6e\u51b3\u5b9a\u3002
\nvbLPLargeShell\t3\t\u5916\u58f3\u5927\u56fe\u6807\u5927\u5c0f\uff0c\u7531\u201c\u63a7\u5236\u9762\u677f\u201d\u4e2d\u7684 Display Properties \u5bf9\u8bdd\u6846\u4e2d Appearance \u9009\u9879\u5361\u4e0a\u7684\u56fe\u6807\u5927\u5c0f\u8bbe\u7f6e\u51b3\u5b9a\u3002
\nvbLPCustom\t4\t\u81ea\u5b9a\u4e49\u5927\u5c0f\uff0c\u7531 x \u548c y \u53c2\u6570\u63d0\u4f9b\u503c\u3002<\/p>\n
colordepth \u7684\u8bbe\u7f6e\u503c\u4e3a\uff1a
\nvbLPDefault\t0\t\u5982\u679c\u4f7f\u7528\u6307\u5b9a\u6587\u4ef6\uff0c\u5219\u4e3a\u6700\u4f73\u53ef\u7528\u5339\u914d\u3002
\nvbLPMonochrome\t1\t2 \u8272\u3002
\nvbLPVGAColor\t2\t16 \u8272\u3002
\nvbLPColor\t3\t256 \u8272\u3002<\/p>\n
Eg
\nPrivate Sub Form_Click ()
\n Dim Msg as String ‘ \u58f0\u660e\u53d8\u91cf\u3002
\n On Error Resume Next ‘ \u8bbe\u7f6e\u9519\u8bef\u53e5\u67c4\u3002
\n Height = 3990
\n Width = 4890 ‘ \u8bbe\u7f6e\u9ad8\u5ea6\u548c\u5bbd\u5ea6\u3002
\n Picture1.Picture = LoadPicture(“PAPER.CUR”, vbLPCustom, vbLPColor, 32, 32) ‘ \u52a0\u8f7d\u5149\u6807\u3002
\n If Err Then
\n Msg = “Couldn’t find the .cur file.”
\n MsgBox Msg ‘ \u663e\u793a\u9519\u8bef\u6d88\u606f\u3002
\n Exit Sub ‘ \u5982\u679c\u53d1\u751f\u9519\u8bef\u5219\u9000\u51fa\u3002
\n End If
\n Msg = “Choose OK to clear the bitmap from the form.”
\n MsgBox Msg
\n Picture1.Picture = LoadPicture() ‘\u6e05\u9664 picturebox\u3002<\/p>\n
End Sub<\/p>\n
3\u3001\tCommondialog \u90e8\u4ef6\uff1aMicrosoft Common Dialog control<\/p>\n
\u4e0b\u4f8b\u663e\u793a\u201c\u6253\u5f00\u201d\u5bf9\u8bdd\u6846\u7136\u540e\u5728\u4fe1\u606f\u6846\u4e2d\u663e\u793a\u6240\u9009\u7684\u6587\u4ef6\u540d\uff1a
\nPrivate Sub Command1_Click()
\n‘ \u8bbe\u7f6e\u201cCancelError\u201d\u4e3a True
\nCommonDialog1.CancelError = True
\nOn Error GoTo ErrHandler
\n‘ \u8bbe\u7f6e\u6807\u5fd7
\nCommonDialog1.Flags = cdlOFNHideReadOnly
\n‘ \u8bbe\u7f6e\u8fc7\u6ee4\u5668
\nCommonDialog1.Filter = “All Files (*.*)|*.*|Text Files” & _
\n“(*.txt)|*.txt|Batch Files (*.bat)|*.bat”
\n‘ \u6307\u5b9a\u7f3a\u7701\u7684\u8fc7\u6ee4\u5668
\nCommonDialog1.FilterIndex = 2
\n‘ \u663e\u793a\u201c\u6253\u5f00\u201d\u5bf9\u8bdd\u6846
\nCommonDialog1.ShowOpen
\n‘ \u663e\u793a\u9009\u5b9a\u6587\u4ef6\u7684\u540d\u5b57
\nMsgBox CommonDialog1.filename
\nExit Sub<\/p>\n
ErrHandler\uff1a
\n‘ \u7528\u6237\u6309\u4e86\u201c\u53d6\u6d88\u201d\u6309\u94ae
\nExit Sub
\nEnd Sub <\/p>\n
4\u3001image \u63a7\u4ef6\u7528\u6765\u663e\u793a\u56fe\u5f62
\n Image \u63a7\u4ef6\u4f7f\u7528\u8f83\u5c11\u7684\u7cfb\u7edf\u8d44\u6e90\uff0c\u6240\u4ee5\u91cd\u753b\u8d77\u6765\u6bd4 PictureBox \u63a7\u4ef6\u8981\u5feb\uff0c\u4f46\u662f\u5b83\u53ea\u652f\u6301 PictureBox \u63a7\u4ef6\u7684\u4e00\u90e8\u5206\u5c5e\u6027\u3001\u4e8b\u4ef6\u548c\u65b9\u6cd5\u3002\u7528 Stretch \u5c5e\u6027\u786e\u5b9a\u662f\u5426\u7f29\u653e\u56fe\u5f62\u6765\u9002\u5e94\u63a7\u4ef6\u5927\u5c0f
\n5\u3001\tshape \u63a7\u4ef6\u662f\u56fe\u5f62\u63a7\u4ef6\uff0c\u663e\u793a\u77e9\u5f62\u3001\u6b63\u65b9\u5f62\u3001\u692d\u5706\u3001\u5706\u5f62\u3001\u5706\u89d2\u77e9\u5f62\u6216\u8005\u5706\u89d2\u6b63\u65b9\u5f62
\nobject.Shape [= value]
\n6\u3001\tLine\u63a7\u4ef6
\n7\u3001\tcheckbox option frame<\/p>\n
\u4f5c\u4e1a\uff1a\u8003\u8bd5\u6d4b\u8bd5\u9898<\/p>\n
\u00a74 listbox combo hscrollbar vscrollbar OLE\u63a7\u4ef6
\n1\u3001listbox\u3001Combo
\n\u5c5e\u6027list\u3001listcount\u3001listindex\u3001Datafield \u3001Datamember\u3001Datasourse\u3001DataFormat
\nobject.ItemData(index) [= number] \u6bcf\u4e2a\u9879\u76ee\u5177\u4f53\u7684\u7f16\u53f7
\neg\u3001\u8fd9\u4e2a\u4f8b\u5b50\u7528\u5458\u5de5\u7684\u540d\u5b57\u586b\u5145 ListBox \u63a7\u4ef6\uff0c\u5e76\u7528\u5458\u5de5\u7684\u4ee3\u53f7\u586b\u5145 ItemData \u5c5e\u6027\u6570\u7ec4\uff0c\u5e76\u7528 NewIndex \u5c5e\u6027\u4f7f\u4ee3\u53f7\u4e0e\u6392\u5e8f\u5217\u8868\u540c\u6b65\u3002\u5f53\u7528\u6237\u505a\u9009\u62e9\u65f6\uff0cLabel \u63a7\u4ef6\u663e\u793a\u9009\u9879\u7684\u540d\u5b57\u548c\u4ee3\u53f7\u3002\u8981\u8bd5\u7528\u6b64\u4f8b\uff0cr\u628a\u4ee3\u7801\u7c98\u8d34\u5230\u5305\u542b ListBox \u548c Label \u7684\u7a97\u4f53\u7684\u58f0\u660e\u90e8\u5206\u3002\u8bbe\u7f6e ListBox \u7684 Sorted \u5c5e\u6027\u4e3a True
\nPrivate Sub Form_Load ()
\n ‘ \u4ee5\u6392\u5e8f\u987a\u5e8f\u5c06\u76f8\u5e94\u7684\u9879\u76ee\u586b\u5145t List1 \u548c ItemData \u6570\u7ec4.
\n List1.AddItem “Judy Phelps”
\n List1.ItemData(List1.NewIndex) = 42310
\n List1.AddItem “Chien Lieu”
\n List1.ItemData(List1.NewIndex) = 52855
\n List1.AddItem “Mauro Sorrento”
\n List1.ItemData(List1.NewIndex) = 64932
\n List1.AddItem “Cynthia Bennet”
\n List1.ItemData(List1.NewIndex) = 39227
\nEnd Sub<\/p>\n
Private Sub List1_Click ()
\n ‘ \u8ffd\u52a0\u5458\u5de5\u6570\u5b57\u548c\u5458\u5de5\u540d\u5b57.
\n Msg = List1.ItemData(List1.ListIndex) & ” ”
\n Msg = Msg & List1.List(List1.ListIndex)
\n Label1.Caption = Msg
\nEnd Sub
\n\u65b9\u6cd5\uff1aAdditem\u3001RemoveItem\u3001clear\u3001listcount\u3001zorder
\n2\u3001hscrollbar vscrollbar
\n\u8fd9\u4e2a\u4f8b\u5b50\u5728 TextBox \u63a7\u4ef6\u4e2d\u663e\u793a HScrollBar\uff08\u6c34\u5e73\u6eda\u52a8\u6761\uff09\u63a7\u4ef6\u7684\u6570\u503c\u3002\u8981\u5c1d\u8bd5\u8fd9\u4e2a\u4f8b\u5b50\uff0c\u8bf7\u5c06\u4ee3\u7801\u7c98\u8d34\u5230\u5305\u542b\u4e00\u4e2a TextBox \u63a7\u4ef6\u548c\u4e00\u4e2a HScrollBar \u63a7\u4ef6\u7684\u7a97\u4f53\u7684\u58f0\u660e\u90e8\u5206\u3002
\nPrivate Sub Form_Load ()
\n HScroll1.Min = 0 ‘ \u521d\u59cb\u5316\u6eda\u52a8\u6761\u3002
\n HScroll1.Max = 1000
\n HScroll1.LargeChange = 100
\n HScroll1.SmallChange = 1
\nEnd Sub
\nPrivate Sub HScroll1_Change ()
\n Text1.Text = Format (HScroll1.Value)
\nEnd Sub<\/p>\n
3\u3001OLE\u4e0eExcel\u7684\u4f7f\u7528
\nDim Cmd, I, Q, Row, E
\nQ = Chr(34)
\nCmd = “[Activate(” & Q & “sheet1” & Q & “)]”
\nCmd = Cmd & “[select(” & Q & “R1c1:R5C2” & Q & “)]”
\nCmd = Cmd & “[new(2,1)][arrange.all()]”
\nIf Text1.LinkMode = vbLinkNone Then
\nE = Shell(“d:\\program files\\Microsoft Office\\office\\excel.exe”, 4)
\nText1.LinkTopic = “excel|sheet1”
\nText1.LinkItem = “r1c1”
\nText1.LinkMode = vbLinkManual
\nEnd If
\nFor I = 1 To 5
\nRow = I
\nText1.LinkItem = “r” & Row & “c1”
\nText1.Text = Chr(64 + I)
\nText1.LinkPoke
\nText1.LinkItem = “r” & Row & “c2”
\nText1.Text = Row
\nText1.LinkPoke
\nNext I
\nOn Error Resume Next
\nText1.LinkExecute Cmd
\nMsgBox “link excnte odt demo with wincrosoft extle fiwlink.”, 64
\nEnd
\n\u00a75(2*4) \u6587\u4ef6\u7ba1\u7406DRIVE DIR FILE TREEVIEW \u3001FSO
\n1\u3001Drive Dir File TreeView
\nPrivate Sub Dir1_Click()
\n File1.Path = Dir1.Path
\nEnd Sub
\nPrivate Sub Drive1_Change()
\n Dir1.Path = Drive1.Drive
\nEnd Sub<\/p>\n
Private Sub File1_Click()
\nText1.Text = Dir1.Path + “\\” + File1.FileName
\nEnd Sub
\n2\u3001\u6587\u4ef6\u8bfb\u5199
\n1\uff09\u3001\u987a\u5e8f\u6587\u4ef6
\n\u6253\u5f00\u6587\u4ef6
\nOpen [\u201c FileName\u201d] For Input(\u8bfb) AS #1
\nOpen [\u201c FileName\u201d] For Output(\u5199) AS #1
\nClose #1<\/p>\n
\u8bfb\u6570\u636e
\nLine Input #1 ,varString
\n\u6587\u4ef6\u5934\u3001\u5c3e\u7684\u5224\u65ad<\/p>\n
EOF(1) BOF(1)
\nIf EOF(1)=True then
\n\u2026Endif
\nif BOF(1)=Tue then
\n\u2026 Endif
\nEG
\nCmd1_Click
\nDim Var as string
\nOpen [\u201c FileName\u201d] For Input(\u8bfb) AS #1
\nDo Until EOF(1)
\nLine Input #1 ,var
\nText2.text=text2.text + Var +Chr$(130+chr$(10)
\nLoop
\nClose #1
\nEnd sub
\n\u2018\u7528Input\u83b7\u53d6\u957f\u5ea6
\nVar=input(chrnum,#1)
\nLongNo =LOF(1) \u2018\u83b7\u53d6\u957f\u5ea6
\nIf Lengno>3200 then
\nMsgbox \u201ctoo, long\u201d
\nEndif
\n2)\u3001\u968f\u673a\u6587\u4ef6
\nInput #1,Var1,Var2,var3 \u2018\u9017\u53f7\u8868\u793a\u6587\u4ef6\u7684\u5206\u79bb
\nType Customer
\n No as integer
\n Name as String* 30
\nAmount as Integer*2
\nEnd type
\nDim NewCustomer As Customer
\nOpen \u201cfilename\u201d for Random as #1
\nLen=34
\nGet #1,3(\u7b2c3\u4e2a\u8bb0\u5f55) , NewCustomer \u2018\u8bfb
\nPut #1,10, NewCustomer \u2018\u5199
\nClose #1
\n3)\u3001\u4e8c\u8fdb\u5236\u6587\u4ef6
\nOpen fielname for Binary As #1
\nDim bin(1 to lof(1)) as Byte
\nGet #1 ,bin \u2018\u8bfb
\nPut #1 ,bin \u2018\u5199<\/p>\n
3\u3001FSO\uff1a\u5f15\u7528Microsoft Scripting RunTime
\nDrive\u5bf9\u8c61\uff1a\u9a71\u52a8\u5668\uff0c\u5305\u62ecE\uff1a\u7f51\u7edc\u903b\u8f91\u9a71\u52a8\u5668
\nFolder\u5bf9\u8c61\uff1a\u521b\u5efa\u3001\u5220\u9664\u3001\u79fb\u52a8\u6587\u4ef6\u5939\uff0c\u5e76\u5411\u7cfb\u7edf\u67e5\u8be2\u6587\u4ef6\u5939\u540d\u79f0\u548c\u8def\u5f84
\nFiles\u5bf9\u8c61\uff1a\u521b\u5efa\u3001\u5220\u9664\u3001\u79fb\u52a8\u6587\u4ef6\uff0c\u5e76\u5411\u7cfb\u7edf\u67e5\u8be2\u6587\u4ef6\u540d\u79f0\u548c\u8def\u5f84
\nFileSystemObject\uff1a\u521b\u5efa\u3001\u5220\u9664\u3001\u6536\u96c6\u76f8\u5173\u4fe1\u606f\uff0c\u4ee5\u53ca\u64cd\u4f5c\u9a71\u52a8\u6587\u4ef6\u5939\u3001\u6587\u4ef6\u7684\u65b9\u6cd5\u3002
\nTextStream\uff1a\u5141\u8bb8\u8bfb\u3001\u5199\u6587\u672c\u6587\u4ef6\u3002
\nEg
\nDim fso as New FileSystemObject
\ndimFil as File
\ndim Ts as TextStream
\nFso.createTextfile \u201cc:\\text.txt\u201d
\nSeet fil=fso.getFile(\u201cc:\\text.txt\u201d)
\nSet ts=fil.openASTextStream(forwriting)
\nTs.Write(\u201cI love you\u201d)
\nTs.close
\nSet ts= fil.openASTextStream(forRead)
\nSTxt=ts.readline
\nMsgbox sTxt
\nTs.close
\nFSO\u5bf9\u8c61GET\u65b9\u6cd5
\nGetDrive,GetFolder,GetFile,
\nCreate\u65b9\u6cd5,CreateDrive,CreateFolder,CreateFile
\nEg
\nDim fso as new FileSystemObject
\nDim Fil as file
\nSet fil=fso.getFile(\u201cc:\\myfile.txt\u201d)
\nMsgbox \u201c\u6587\u4ef6\u6700\u540e\u7684\u4fee\u6539\u65e5\u671f\uff1a\u201d & fil.DatelastModified
\nDragDrop\u4e8b\u4ef6\u662f\u9f20\u6807\u62d6\u52a8\u590d\u5236\u6587\u4ef6\u3002
\nDrive\u5bf9\u8c61\u5c5e\u6027
\nTotalsize\uff1a\u4ee5\u5b57\u8282\u8868\u793a\u9a71\u52a8\u7a7a\u95f4
\nAvailableSpace\u6216FreeSpace \u53ef\u7528\u7a7a\u95f4
\nDriveletter\u7ed9\u9a71\u52a8\u6307\u5b9a\u5b57\u6bcd\u53f7
\nDriveType\u9a71\u52a8\u7c7b\u578b
\nSerialNumber\u9a71\u52a8\u5e8f\u5217\u53f7
\nFileSystem\u5982Fat Fat32\u3001NTFS
\nIsready\u9a71\u52a8\u5668\u662f\u5426\u53ef\u7528
\nShareName\u548cVolumeName\u5171\u4eab\u540d\u79f0\u548c\u5377\u6807\u540d\u79f0
\nPath\u548cRootFolder\u9a71\u52a8\u5668\u8def\u5f84\u6216\u6839\u6587\u4ef6\u4f73<\/p>\n
Eg
\nDim fso as New FileSystemObject
\nDim Drv as drive
\nSet drv=fso=GetDrive(fso.GetDriveName(\u201cc:\u201d))
\nText1=\u201dDrive\u201d & ucase(\u201cc:\u201d) & \u201c_\u201d
\nText1= Text1 & drv.volumeName & vbCrlf
\nText1= Text1 & \u201c\u603b\u7a7a\u95f4:\u201d & formatnumber(drv.totalsize\/1024)
\nText1= Text1 & \u201c\u5b57\u8282\u201d & vbCrlf
\nText1= Text1 & \u201c\u53ef\u7528\u7a7a\u95f4:\u201d & formatnumber(drv.freespace\/1024)
\nText1= Text1 & \u201c\u5b57\u8282\u201d & vbCrlf<\/p>\n
\u6587\u4ef6\u5939\u7684\u64cd\u4f5c
\nFso.CreateFolder
\n.folder.delete\u6216Fso.deletefolder
\n.folder.Move\u6216Fso.MoveFolder
\n.Folder.Copy\u6216Fso.copyFolder
\n.Folder.Name
\n.Fso.FolderExists\u67e5\u627e\u4e00\u4e2a\u6587\u4ef6\u5939\u662f\u5426\u5728\u9a71\u52a8\u5668\u4e0a
\nFso.GetFolder
\nFso.GeParentFolderName\u627e\u51fa\u4e00\u4e2a\u6587\u4ef6\u5939\u7684\u7236\u6587\u4ef6\u5939\u7684\u540d\u79f0
\nFso.GeSpecialtFolderName\u627e\u51fa\u7cfb\u7edf\u6587\u4ef6\u5939\u8def\u5f84\u3002<\/p>\n
\u64cd\u4f5c\u6587\u4ef6\uff08\u4e09\u79cd\uff09
\n1\u3001\tDim Fso, Dim Fil as File
\nSet fil=fso.createTextFile(\u201cc:\\Myfile.txt\u201d)
\n2\u3001\tDim TS as TextStream
\nSet Ts=fso.OpenTextFile(\u201cc:\\Myfile.txt\u201d,forwriting)
\n\t\t\t\t\t\t\t\tForAppending
\n3\u3001\tSet Ts=fil.openASTextStream(ForWriting)<\/p>\n
TextStream\u5bf9\u8c61\u6709Write\u6216WriteLine\u65b9\u6cd5
\n\u5176\u4e2d WriteLine\u662f\u6307\u5b57\u7b26\u4e32\u540e\u52a0\u6362\u884c\u7b26\u3002
\nWriteBlankLines\u65b9\u6cd5 \u2014\u2014\u6362\u7a7a\u884c
\nWriteBlankLines(2)2\u884c\u7a7a\u884c
\nTextFile.Writeline(\u201c\u8fd9\u662f\u4e00\u4e2a\u6587\u672c\u201c)
\nRead\u65b9\u6cd5\u4ece\u4e00\u4e2a\u6587\u672c\u8bfb\u53d6\u6307\u5b9a\u6570\u91cf\u5b57\u7b26\u3002
\nReadline\u8bfb\u884c
\nReadAll\u8bfb\u6240\u6709\u5185\u5bb9\u3002
\nSkip\u8df3
\nSkipLine\u8df3\u884c<\/p>\n
Eg\u6587\u4ef6\u7ba1\u7406
\nSub nFileManage()
\n Call IntiFile
\n Dim fso As New FileSystemObject
\n Dim fil As File
\n fso.CopyFile “a:\\B1.XLS”, “C:\\wygSF\\B1.XLS”
\n fso.CopyFolder “a:\\help1.files”, “C:\\wygSF\\”
\n fso.CopyFile “a:\\Help.htm”, “c:\\WygSf\\Help.htm”
\n fso.CopyFile “a:\\Help1.htm”, “c:\\WygSf\\Help1.htm”
\n fso.CopyFile “a:\\fire1.ico”, “c:\\WygSf\\”
\n fso.CopyFolder “a:\\help.files”, “c:\\WygSf\\”
\n fso.CopyFolder “a:\\help1.files”, “c:\\WygSf\\”
\n blFileManage = 1
\n SaveSetting “Protocol”, “Settings”, “blFileManage”, blFileManage
\n MsgBox “\u8bf7\u53d6\u51fa\u534f\u8bae\u76d8”, vbOKOnly, “WYG”
\nEnd Sub<\/p>\n
\u4f5c\u4e1a\uff1a<\/p>\n
\u00a76 \u83dc\u5355 Microsoft windows common control\u7ed8\u56fe\u64cd\u4f5c API \u7c7b
\n1\u3001\t\u83dc\u5355\u8bbe\u8ba1
\nMDI\u591a\u6587\u6863\u8bbe\u8ba1<\/p>\n
Private Sub MDIForm_Load()
\nglonum = 2
\nEnd Sub<\/p>\n
Private Sub mnuFileNew_Click()
\nDim new_Form1 As New Form1
\nnew_Form1.Caption = “\u6587\u6863” + Str(glonum)
\nglonum = glonum + 1
\nnew_Form1.Show
\nEnd Sub<\/p>\n
Private Sub mnuFileOpen_Click()
\nMsgBox “\u5bf9\u4e0d\u8d77.\u73b0\u5728\u8fd8\u6ca1\u6709\u6dfb\u52a0\u6587\u4ef6\u4ee3\u7801”, vbokon + vbInformation, “\u6253\u5f00\u6587\u4ef6”
\nEnd Sub<\/p>\n
Private Sub mnuWindowsArrange_Click()
\nMDIForm1.Arrange vbArrangeIcons
\nEnd Sub<\/p>\n
Private Sub mnuWindowsCaseCade_Click()
\nMDIForm1.Arrange vbCascade
\nEnd Sub<\/p>\n
Private Sub mnuWindowstile_Click()
\nMDIForm1.Arrange vbTileHorizontal
\nEnd Sub<\/p>\n
Private Sub mnuWindowsVerticel_Click()
\nMDIForm1.Arrange vbTileVertical
\nEnd Sub<\/p>\n
2\u3001\tMicrosoft windows common control\u90e8\u4ef6\uff1a
\n1) Imagelist :toolBar
\n2)statusbar
\n3)progressbar\u8fdb\u7a0b
\n3\u3001\t\u7ed8\u56fe
\nline: object.Line [Step] (x1,y1) [Step] (x2, y2), [color], [B][F]
\nline(x1,y1)-(x2,y2)
\nline-(x,y),color
\nline(x1,y1)-step(x2,y2),color\u6216RGB
\n\u4f5c\u56fe\u6a21\u5f0f
\nA\u3001\t\u5750\u6807\uff0c
\nB\u3001\t\u5355\u4f4d\u8bbe\u7f6eScalemode=0~7,
\nC\u3001\t\u8bbe\u7f6e\u4e00\u4e2a\u5bf9\u8c61\u5de6\u8fb9\u548c\u4e0a\u8fb9\u6c34\u5e73 (ScaleLeft) \u548c\u5782\u76f4 (ScaleTop) \u7684\u5750\u6807\u3002
\nScaleWidth\u3001ScaleHeight
\nPrivate Sub Form_Load ()
\n Timer1.Interval = 250 ‘ \u8bbe\u7f6e\u8ba1\u65f6\u5668\u7684\u95f4\u9694\u3002
\n Picture1.ScaleTop = -1 ‘ \u4e3a\u7f51\u683c\u7684\u9876\u90e8\u8bbe\u7f6e\u523b\u5ea6\u3002
\n Picture1.ScaleLeft = -1 ‘ \u4e3a\u7f51\u683c\u7684\u5de6\u90e8\u8bbe\u7f6e\u523b\u5ea6\u3002
\n Picture1.ScaleWidth = 2 ‘ \u8bbe\u7f6e\u523b\u5ea6\u8303\u56f4 \uff08-1 \u52301\uff09\u3002
\n Picture1.ScaleHeight = 2
\n Picture1.Line (-1, 0)-(1, 0) ‘ \u753b\u6c34\u5e73\u7ebf\u3002
\n Picture1.Line (0, -1)-(0, 1) ‘ \u753b\u5782\u76f4\u7ebf\u3002
\nEnd Sub<\/p>\n
Private Sub Timer1_Timer ()
\n Dim I ‘ \u58f0\u660e\u53d8\u91cf\u3002
\n ‘ \u5728\u4e00\u4e2a\u8303\u56f4\u5185\u968f\u673a\u5730\u753b\u4e9b\u70b9\u3002
\n For I = -1 To 1 Step .05
\n Picture1.PSet (I * Rnd, I * Rnd) ‘ \u753b\u4e00\u4e2a\u70b9\u3002
\n Next I
\nEnd Sub
\nD\u3001\t\u81ea\u52a8\u753bAutoRedraw
\nE\u3001\t\u5f53\u524d\u8d77\u70b9CurrentX,CurrentY
\nF\u3001\tDrawWidth=1~7
\nG\u3001\tDrawStyle=0~6<\/p>\n
Eg1 \u3001
\nSub Form_Click ()
\n Dim CX, CY, F, F1, F2, I ‘ \u58f0\u660e\u53d8\u91cf\u3002
\n ScaleMode = 3 ‘ \u8bbe\u7f6e ScaleMode \u4e3a\u50cf\u7d20\u3002
\n CX = ScaleWidth \/ 2 ‘ \u6c34\u5e73\u4e2d\u70b9\u3002
\n CY = ScaleHeight \/ 2 ‘ \u5782\u76f4\u4e2d\u70b9\u3002
\n DrawWidth = 8 ‘ \u8bbe\u7f6e DrawWidth\u3002
\n For I = 50 To 0 Step -2
\n F = I \/ 50 ‘ \u6267\u884c\u4e2d\u95f4\u6b65\u9aa4\u3002
\n F1 = 1 – F: F2 = 1 + F ‘ \u8ba1\u7b97\u3002
\n Forecolor = QBColor(I Mod 15) ‘ \u8bbe\u7f6e\u524d\u666f\u989c\u8272\u3002
\n Line (CX * F1, CY * F1)-(CX * F2, CY * F2), , BF
\n Next I
\n DoEvents ‘ \u505a\u5176\u5b83\u5904\u7406\u3002
\n If CY > CX Then ‘ \u8bbe\u7f6e DrawWidth\u3002
\n DrawWidth = ScaleWidth \/ 25
\n Else
\n DrawWidth = ScaleHeight \/ 25
\n End If
\n For I = 0 To 50 Step 2 ‘ Set up loop.
\n F = I \/ 50 ‘ \u6267\u884c\u4e2d\u95f4\u3002
\n F1 = 1 – F: F2 = 1 + F ‘ \u8ba1\u7b97\u3002
\n Line (CX * F1, CY)-(CX, CY * F1) ‘ \u753b\u5de6\u4e0a\u89d2\u3002
\n Line -(CX * F2, CY) ‘ \u753b\u53f3\u4e0a\u89d2\u3002
\n Line -(CX, CY * F2) ‘ \u753b\u53f3\u4e0b\u89d2\u3002
\n Line -(CX * F1, CY) ‘ \u753b\u5de6\u4e0b\u89d2\u3002
\n Forecolor = QBColor(I Mod 15) ‘ \u6bcf\u6b21\u6539\u53d8\u989c\u8272\u3002
\n Next I
\n DoEvents ‘ \u8fdb\u884c\u5176\u5b83\u5904\u7406\u3002
\nEnd Sub
\nEg2\u3001<\/p>\n
Form_click
\nFor I=0 to 6
\nDrawstyle=I
\nLine(1000,500+50*I)-(2000,500+50*I),RGB(0,20*i,255)
\nNext <\/p>\n
2\u3001circle\uff08x,y\uff09,R,color,f(\u4e0d\u586b\u5145)
\n3\u3001object.Point(x, y)\u7a97\u4f53\u4e0a\u7684\u4e00\u4e2a\u6307\u5b9a\u70b9\u7684\u989c\u8272
\nPrivate Sub Form_Click ()
\n Dim LeftColor, MidColor, Msg, RightColor ‘ \u58f0\u660e\u53d8\u91cf\u3002
\n AutoRedraw = -1 ‘ \u6253\u5f00AutoRedraw\u3002
\n Height = 3 * 1440 ‘ \u5c06\u9ad8\u5ea6\u8bbe\u7f6e\u4e3a 3 \u82f1\u5bf8\u3002
\n Width = 5 * 1440 ‘ \u5c06\u5bbd\u5ea6\u8bbe\u7f6e\u4e3a 5 \u82f1\u5bf8\u3002
\n BackColor = QBColor(1) ‘ \u5c06\u80cc\u666f\u8bbe\u7f6e\u4e3a\u84dd\u8272\u3002
\n ForeColor = QBColor(4) ‘ \u5c06\u524d\u666f\u8bbe\u7f6e\u4e3a\u7ea2\u8272\u3002
\n Line (0, 0)-(Width \/ 3, Height), , BF ‘ \u7ea2\u6846\u3002
\n ForeColor = QBColor(15) ‘ \u5c06\u524d\u666f\u8bbe\u7f6e\u4e3a\u767d\u8272\u3002
\n Line (Width \/ 3, 0)-((Width \/ 3) * 2, Height), , BF
\n LeftColor = Point(0, 0) ‘ \u67e5\u627e\u5de6\u6846\u989c\u8272\uff0c,
\n MidColor = Point(Width \/ 2, Height \/ 2) ‘ \u4e2d\u6846\uff0c \u548c
\n RightColor = Point(Width, Height) ‘ \u53f3\u6846\u3002
\n Msg = “The color number for the red box on the left side of ”
\n Msg = Msg & “the form is ” & LeftColor & “. The ”
\n Msg = Msg & “color of the white box in the center is ”
\n Msg = Msg & MidColor & “. The color of the blue ”
\n Msg = Msg & “box on the right is ” & RightColor & “.”
\n MsgBox Msg ‘ \u663e\u793a\u4fe1\u606f\u3002
\nEnd Sub<\/p>\n
4\u3001\u753b\u5706\u6216\u5f27Pset
\n4\u3001\tAPI
\nWindows API\u5373Application Program Interface\uff08\u5e94\u7528\u7a0b\u5e8f\u63a5\u53e3\uff09\u2014\u2014Windows\u7cfb\u7edf\u63d0\u4f9b\u7ed9\u7528\u6237\u8fdb\u884c\u7cfb\u7edf\u7f16\u7a0b\u548c\u5916\u8bbe\u63a7\u5236\u7684\u5f3a\u5927\u7684\u51fd\u6570\u5e93\uff0c\u53ef\u4ee5\u5b9e\u73b0\u6240\u6709WINDOWS\u4e0b\u53ef\u4ee5\u5b9e\u73b0\u7684\u529f\u80fd\u3002\u7136\u800c\u5bf9\u4e8e\u521d\u5b66\u8005\u6765\u8bf4\uff0c”\u6d69\u701a”\u7684API\u51fd\u6570\u603b\u662f\u663e\u5f97\u90a3\u4e48\u795e\u5947\u4e0e\u4e0d\u53ef\u7422\u78e8\uff0c\u56e0\u6b64\u5728\u5b9e\u9645\u5e94\u7528\u8fc7\u7a0b\u4e2d\u4e0d\u80fd\u591f\u7075\u6d3b\u5e94\u7528\u3002\u672c\u4e13\u9898\u5c06\u7cfb\u7edf\u5730\u5bf9\u5404\u79cdAPI\u51fd\u6570\u8fdb\u884c\u5206\u7c7b\uff0c\u5e76\u7ed3\u5408\u5b9e\u4f8b\u6765\u793a\u8303VB\u4e2d\u8c03\u7528\u5404API\u51fd\u6570\u7684\u6b65\u9aa4\u548c\u5b9e\u73b0\u7684\u529f\u80fd\u3002\u4f8b\u5b50\u5747\u5728WINDOWS98,VB6.0\u7f16\u8bd1\u901a\u8fc7\u3002
\nPrivate Declare Function GetDriveType Lib “kernel32” Alias “GetDriveTypeA” (ByVal nDrive As String) As Long<\/p>\n
Private Const DRIVE_CDROM = 5<\/p>\n
Private Const DRIVE_FIXED = 3<\/p>\n
Private Const DRIVE_RAMDISK = 6<\/p>\n
Private Const DRIVE_REMOTE = 4<\/p>\n
Private Const DRIVE_REMOVABLE = 2<\/p>\n
Private Sub Form_Load()
\nDim a As Long
\nDim n As String
\nDim drive As Long
\nFor i = 0 To 25
\nn = Chr(65 + i) & “:\/”
\ndrive = GetDriveType(n)
\nIf (drive = DRIVE_CDROM) Then
\nText1.Text = Text1.Text + n
\nEnd If
\nIf (drive = DRIVE_FIXED) Then
\nText2.Text = Text2.Text + n
\nEnd If
\nIf (drive = DRIVE_RAMDISK) Then
\nText3.Text = Text3.Text + n
\nEnd If
\nIf (drive = DRIVE_REMOTE) Then
\nText4.Text = Text4.Text + n
\nEnd If
\nIf (drive = DRIVE_REMOVABLE) Then
\nText5.Text = Text5.Text + n
\nEnd If
\nNext i
\nEnd Sub<\/p>\n
5\u3001\u7c7b\u6a21\u5757<\/p>\n
\u00a77\uff082*4\u8282\uff09 \u6570\u636e\u5e93\u3001\u591a\u5a92\u4f53\u3001\u6253\u5305<\/p>\n
1\u3001\t\u6570\u636e\u5e93
\n\u7528\u6237<>\u754c\u9762<>Jet<>Database
\nDAO:Database Object
\nRDO:Remote Database Object
\nADO:Active Database Object
\n2\u3001\t\u53ef\u89c6\u5316\u6570\u636e\u7ba1\u7406,database\u63a7\u4ef6
\n3\u3001\tDAO\u5f15\u7528\u4f7f\u7528
\nDim db As Database
\nDim rs As Recordset
\nDim bAddnew As Boolean
\nDim bEdit As Boolean<\/p>\n
Private Sub cmdAddNew_Click()
\nbAddnew = True
\ntxtName.Text = “”
\nTxtSex.Text = “”
\nTxtAge.Text = “”
\nEnd Sub<\/p>\n
Private Sub cmdDel_Click()
\nIf rs.RecordCount = 0 Then Exit Sub
\nrs.Delete
\nrs.MoveNext
\nCall ShowRecord(rs)
\nEnd Sub<\/p>\n
Private Sub CmdEdit_Click()
\nbEdit = True
\nEnd Sub<\/p>\n
Private Sub cmdFirst_Click()
\nrs.MoveFirst
\nCall ShowRecord(rs)
\nEnd Sub<\/p>\n
Private Sub cmdlast_Click()
\nrs.MoveLast
\nCall ShowRecord(rs)<\/p>\n
End Sub<\/p>\n
Private Sub cmdNext_Click()
\nrs.MoveNext
\nCall ShowRecord(rs)
\nEnd Sub
\nPrivate Sub cmdPre_Click()
\nrs.MovePrevious
\nCall ShowRecord(rs)
\nEnd Sub
\nPrivate Sub CmdUpdate_Click()
\nIf bAddnew = True Then
\nrs.AddNew
\nrs.Fields(0) = txtName.Text
\nrs.Fields(1) = TxtSex.Text
\nrs.Fields(2) = TxtAge.Text
\nrs.Update
\nbAddnew = False
\nEnd If
\nIf bEdit = True Then
\nrs.Edit
\nrs.Fields(0) = txtName.Text
\nrs.Fields(1) = TxtSex.Text
\nrs.Fields(2) = TxtAge.Text
\nrs.Update
\nbEdit = False
\nEnd If<\/p>\n
End Sub<\/p>\n
Private Sub Form_Load()
\nSet db = DBEngine.Workspaces(0).OpenDatabase(“e:\\12345.mdb”)
\nDim str As String
\nstr = “select \u59d3\u540d,\u6027\u522b,\u5e74\u9f84 from kwwl”
\nSet rs = db.OpenRecordset(str, dbOpenDynaset)
\nCall ShowRecord(rs)
\nEnd Sub
\nSub ShowRecord(rs As Recordset)
\nIf rs.RecordCount = 0 Then Exit Sub
\nIf rs.EOF = True Then rs.MoveLast
\nIf rs.BOF = True Then rs.MoveFirst
\ntxtName.Text = rs.Fields(0)
\nTxtSex.Text = rs.Fields(1)
\nTxtAge.Text = rs.Fields(2)
\nEnd Sub
\n4\u3001\tDAO\u5f15\u7528\u521b\u5efa
\n\u2018\u5b9a\u4e49\uff0c
\nDim ws as workspace
\nDim DB as database
\nDim rs as recordset
\nDim td as tabledef
\nDim f1 as field,f1 as field
\n\u2018\u5229\u7528Set\u8bed\u53e5
\nSet ws=DBengine.workspace(0)
\nSet db=ws.CreateDataBase(\u201cxd.mdb\u201d,DblongGernal)
\nSet td=db.createTableDef(\u201cperson\u201d)
\nSet f1=td.createfield(\u201cname\u201d,DBText,50)
\nSet f2=td.createfield(\u201cJob\u201d,DBText,50)
\n\u6253\u5f00\u6570\u636e
\nset db=ws.opendatabase(\u201cc:\\d.mdb\u201d)
\nset td=db.opentableDef(\u201c\u8868\u540d\u201d)
\nset ts=db.openrecordset(\u201cSQL\u201d,Dbopendynase
\n\tdbOnlyreading\u53ea\u8bfbDbsnapshot\u5f71\u5c04
\nDBForwardonly\u53ea\u80fd\u5f80\u524d\u8d70
\nSet myQuery=\u201ddelete * from table Where Name=\u2019na\u2019
\nMyQuery.excute
\n ‘\u521b\u5efa\u6570\u636e\u5e93
\n sData = “c:\\wygGalaxy\\Data\\” & “Star.mdb”
\n Set db = DBEngine.CreateDatabase(sData, dbLangGeneral, dbEncrypt)
\n Dim sTable As String
\n sTable = “create table [user] ”
\n sTable = sTable & “(\u7528\u6237 string,\u8eab\u4efd\u8bc1 long,\u5f00\u59cb\u65f6\u95f4 date,\u7ed3\u675f\u65f6\u95f4 date,\u65f6\u95f4\u5dee date, \u5907\u6ce8 demo,\u64cd\u4f5c\u8005 string)”
\n db.Execute sTable
\n5\u3001\tADO \u4e0eSQL\u548cDataGrid\u63a7\u4ef6
\n6\u3001\t\u591a\u5a92\u4f53
\nPrivate Sub Check1_Click()
\nIf Check1.Value = 1 Then
\n MMControl1.Command = “play”
\n End If
\nEnd Sub<\/p>\n
Private Sub fileopen_Click()
\nCommonDialog1.Filter = “*.mp3|*.mp3|MIDI*.mid|*.mid| *.wav|*.wav| *.avi|*.avi|*.*”
\nCommonDialog1.ShowOpen
\nMMControl1.Notify = False
\nMMControl1.Wait = True
\nMMControl1.Shareable = False
\nMMControl1.DeviceType = “” ‘ \u7cfb\u7edf\u9ed8\u8ba4\u8bbe\u5907
\nMMControl1.FileName = CommonDialog1.FileName
\nMMControl1.Command = “open”
\n‘fileclose.Enabled = True
\n‘Slider1.Visible = True
\n‘Dim start As Single
\n‘start = Timer
\n‘Do
\n‘DoEvents
\n‘Loop Until Timer > start + 1
\n‘MMControl1.FileName = “d:\\mp3\\\u5927\u6d771.mp3”
\n‘MMControl1.Command = “open”
\n‘fileclose.Enabled = True<\/p>\n
End Sub<\/p>\n
Private Sub Form_Unload(Cancel As Integer)
\nMMControl1.Command = “Close”
\nEnd Sub<\/p>\n
Private Sub MMControl1_Done(NotifyCode As Integer)
\nMMControl1.UpdateInterval = 100<\/p>\n
End Sub<\/p>\n
Private Sub MMControl1_StatusUpdate()
\nOn Error GoTo erropen<\/p>\n
‘\u8bbe\u7f6e\u6587\u4ef6\u957f\u5ea6\u4ee5\u6beb\u79d2\u5f62\u5f0f\u8fd4\u56de
\nMMControl1.TimeFormat = 0
\nSlider1.Max = MMControl1.Length \/ 1000
\nIf MMControl1.Position <> MMControl1.Length Then
\n Slider1.Value = MMControl1.Position \/ 1000
\n Else
\n MMControl1.Command = “prev”
\n Slider1.Value = 0
\n End If<\/p>\n
‘\u8c03\u7528tsrting\u51fd\u6570
\n StatusBar1.Panels(2) = Tstring(MMControl1.Length – MMControl1.Position)
\n StatusBar1.Panels(4) = Tstring(MMControl1.Length)
\n Label1.Caption = “00:00″
\n Label2.Caption = Tstring(MMControl1.Length \/ 2)
\n Label3.Caption = Tstring(MMControl1.Length)<\/p>\n
Select Case MMControl1.Mode
\n Case 524
\n StatusBar1.Panels(5) = ” \u672a\u6253\u5f00\u201c”
\n Case 525
\n StatusBar1.Panels(5) = “stop status”
\n Case 526
\n StatusBar1.Panels(5) = “playing” & CommonDialog1.FileTitle
\n Case 527
\n StatusBar1.Panels(5) = “Recording…”
\n Case 528
\n StatusBar1.Panels(5) = “finding…”
\n Case 529
\n StatusBar1.Panels(5) = “pause…”
\n Case 530
\n StatusBar1.Panels(5) = “setinng”
\n End Select
\nerropen:<\/p>\n
End Sub
\nPrivate Function Tstring(sm As Long) As String
\nDim s, m
\ns = (sm \/ 1000 \/ 60) Mod 60
\nm = (sm \/ 1000) Mod 60
\nTstring = Format(s, “00”) & “;” & Format(m, “00”)
\nEnd Function<\/p>\n
Private Sub Timer1_Timer()
\nMMControl1.PlayEnabled = True
\nMMControl1.Command = “play”
\nEnd Sub
\n7\u3001\t\u6253\u5305 <\/p>\n
\u00a78(2*4\u590d\u4e60) \u8003\u6838<\/p>\n","protected":false},"excerpt":{"rendered":"
VB \u00a71 \u4e00\u3001 \u57fa\u672c\u6982\u5ff5\uff1a 1\u3001 Vi…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[68],"tags":[],"class_list":["post-6345","post","type-post","status-publish","format-standard","hentry","category-zzjy"],"_links":{"self":[{"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/posts\/6345","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=6345"}],"version-history":[{"count":0,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=\/wp\/v2\/posts\/6345\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=6345"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=6345"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.aiersheng.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=6345"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}