a97191的专栏

 Dim bStop As Boolean     Dim n(1 To 370), i, j, q          Private Sub Command1_Click()      Command1.Visible = False      Randomize Timer      While j      q = Int(Rnd(1) * 369 + 1)      Label1.Capt

With CommonDialog1  .ShowOpen   If .FileName       Text1.Text = Right(.FileName, InStrRev(.FileName, "/")end ifEnd With

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory

推荐vb6中如何调用水晶报表9做的报表引用ado及crystal report9 activex designer design time library(internal) 使用控件 crystal report viewer contral priver sub form_load() dim strsql as string Dim i As Integer dim capp As New

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA"

添加两个按钮,一个image控件注意:Access中的photo字段类型为OLE对象.SqlServer中的photo字段类型为Image** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本‘2.5版本以下不支持Stream对象Dim iConcstr As StringDim iConc As ADODB.Connection 

 模块代码:Public MyIP As StringPrivate Const IP_SUCCESS As Long = 0Private Const IP_STATUS_BASE As Long = 11000Private Const IP_BUF_TOO_SMALL As Long = (11000 + 1)Private Const IP_DEST_NET_UNREACHABLE A

Option ExplicitPrivate Const EM_SETSEL = &HB1Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As