Private Sub Form_Activate()用在什么地方？

sd2125190 2003-12-11 09:16:33

Private Sub Form_Activate()用在什么地方？

...全文

177 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

zsx108 2003-12-11

打赏
举报

回复

Activate可能是在当执行form的show方法时运行，可以在该函数里写一个stop语句，就能知道何时被运行。

VB6 获取当前打开窗口数量，如何获取当前打开窗口数量，本示例打开一个窗口后，在测试时会打开另外一个窗口，然后主窗口中会统计到这个打开的窗口，把当前打开窗口的数量填入文本框中。本程序可学习一下DoEvents()的用法。调用新窗口显示可参考以下代码：　　Private Sub Command1_Click() 　　 Form2.Show 　　 Call Form_Activate 　　End Sub 　　Private Sub Form_Activate() 　　 Text1.Text = DoEvents() 　　End Sub

VB常用控件的事件详解

VB电子相册电子相册 1、数据库连接 Public conn As ADODB.Connection Public Sub conDB() Set conn = New ADODB.Connection conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ & App.Path & "\data\pic.mdb" conn.Open End Sub 2、登录模块 Dim loginTimes As Integer Private rsmc As ADODB.Recordset Private rs As ADODB.Recordset Public userName As String Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdOK_Click() Call login End Sub Private Sub Form_Activate() Call conDB Set rsmc = New ADODB.Recordset rsmc.CursorLocation = adUseClient rsmc.Open "用户信息表", conn, 0, 1 'need to learn cbUserName.Clear While Not rsmc.EOF cbUserName.AddItem rsmc.Fields("用户名") rsmc.MoveNext Wend cbUserName.SetFocus tbPwd.Text = "" cbUserName.Refresh End Sub Private Sub Form_Unload(Cancel As Integer) conn.Close Set rs = Nothing End Sub Sub login() Dim strSql As String userName = "" If Trim(cbUserName.Text) = "" Then MsgBox "用户名不用为空，请选择用户名！", vbOKOnly + vbExclamation, "警告" cbUserName.SetFocus Else strSql = "select * from 用户信息表 where 用户名='" & Trim(cbUserName.Text) & "'" Set rs = New ADODB.Recordset rs.Open strSql, conn, 2, 2 If Trim(rs.Fields("密码")) = Trim(tbPwd.Text) Then rs.Close Me.Hide userName = Trim(cbUserName.Text) 'Load frmMain frmMain.Show Exit Sub Else MsgBox "密码不对，请重新输入！", vbOKOnly + vbExclamation, "警告" tbPwd.Text = "" tbPwd.SetFocus End If loginTimes = loginTimes + 1 If loginTimes = 3 Then MsgBox "密码错误已有3次，你不能进入系统！", vbOKOnly + vbQuestion, "提示" Unload Me End If End If End Sub 3、主模块 Private rs As ADODB.Recordset Dim stuNum As Integer Private Sub Form_Activate() Call conDB End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) conn.Close Set conn = Nothing End Sub Private Sub mnuAddPic_Click() frmAddPic.Show End Sub Private Sub mnuDeletePic_Click() frmDeletePic.Show End Sub Private Sub mnuShowpic_Click() frmShow.Show End Sub Private Sub mnuExit_Click() Unload Me End End Sub Private Sub mnuSMPic_Click() frmSMPic.Show End Sub Private Sub mnuUser_Click() Dim frm1 As New frmUser frm1.Show End Sub 4、显示图片模块 Dim str As String Dim rs As ADODB.Recordset Dim rsNum As Integer Dim nextNum As Integer Private Sub cbPic_Click() str = App.Path + "\" Set rs = New ADODB.Recordset Dim strConn As String strConn = "select * from pic where name='" + Trim(cbPic.Text) + "'" rs.Open strConn, conn, 0, 1 str = str + rs.Fields("address").Value 'MsgBox str Image1.Picture = LoadPicture(str) rs.Close End Sub Private Sub CmdNext_Click() nextNum = nextNum + 1 'MsgBox nextNum If nextNum > rsNum - 1 Then nextNum = 0 'MsgBox nextNum End If Dim temp As Integer temp = nextNum Set rs = New ADODB.Recordset rs.Open "pic", conn, 0, 1 ' rs.MoveFirst ' While Not rs.EOF And temp > 0 ' 'rs.MoveNext ' 'temp = temp - 1' ' Wend rs.Move (temp) str = App.Path + "\" str = str + rs.Fields("address").Value cbPic.Text = rs.Fields("name").Value Image1.Picture = LoadPicture(str) rs.Close End Sub Private Sub Form_Load() Call conDB str = App.Path + "\" nextNum = 0 Set rs = New ADODB.Recordset rs.Open "pic", conn, 0, 1 str = str + rs.Fields("address").Value Image1.Picture = LoadPicture(str) cbPic.Clear rsNum = 0 'MsgBox rsNum rs.MoveFirst While Not rs.EOF cbPic.AddItem rs.Fields("name") rsNum = rsNum + 1 rs.MoveNext Wend cbPic.Text = "tu1" rs.Close End Sub

VB演示随机数的用法，演示了随机数的生成，模拟一场流星雨，运行是很是壮观!演示了随机数的产生和使用，从中看看随机数的使用方法。请参见下面的代码片段：　　VB6代码模拟一场流星雨的例子，从中看看随机数的使用方法：　　Dim X(100), Y(100), pace(100), size(100) As Integer 　　Private Sub cmdQuit_Click() 　　Unload Me 　　End Sub 　　Private Sub Form_Activate() 　　Randomize 　　For I = 1 To 100 　　X1 = Int(Form1.Width * Rnd) 　　Y1 = Int(Form1.Height * Rnd) 　　pace1 = Int(500 - (Int(Rnd * 499))) 　　size1 = 25 * Rnd 　　X(I) = X1 　　Y(I) = Y1 　　pace(I) = pace1 　　size(I) = size1 　　Next 　　End Sub 　　Private Sub Timer1_Timer() 　　For I = 1 To 100 　　Circle (X(I), Y(I)), size(I), BackColor 　　Y(I) = Y(I) pace(I) 　　If Y(I) >= Form1.Height Then Y(I) = 0: X(I) = Int(Form1.Width * Rnd) 　　Circle (X(I), Y(I)), size(I) 　　Next 　　End Sub

精彩编程与编程技巧-vb6.0数据库编程经验小集 ...

7,786

社区成员

197,586

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章