VB6.0一大堆问题,看问题补充,嫌麻烦的就看悬赏,100,回...

发布网友发布时间：2024-10-05 18:27

我来回答

共2个回答

热心网友时间：2024-10-21 13:03

文本框输入信息违反规则弹出消息举例

Private Sub Text1_LostFocus() '//当光标置内文本框得而失去焦点时
  If Text1<>"XXX" Then
     MsgBox("输入错误！")
  End If
End Sub

密码文本框就是把文本框的PasswordChar值设置成* 或者其他掩码作为遮盖

点个键弹出窗口是指快截键触发KeyDown事件

Private Sub Text1_KeyDown(...)
  If Key=vbKeys.F1 Then
     要显示的窗体.ShowDialog
  End If
End Sub

消失一个窗口很简单，只有作为启动项的窗体不能关闭，其他的都可以直接关闭

启动窗体.Hide '//隐藏就好了
其他窗体.Close

等待N秒后图片关闭举例，10秒

'//拖一个Timer控件
Dim i as Integer
Private Sub Timer1_Timer()
   If i<10 Then
      i=i+1
   Else
      Image1.Picture=Picture.LoadFile(@"空白图片路径")
   End If
End If

进度条不一定要进度条控件，任何长度可以变化的东西都可以作为变化条，有进度就是进度条，比如我要把一个Label设置成红色，作为进度条，让他右边部显示数据，他的文本对齐设置成右对齐。再拖一个Timer来演示进度，

Dim i as integer
Private Sub Timer1_Timer()
  '//这里查询数据库条数，得出你要拉取数据库数据条数，插入数据到另一个表里面就一条一条显示进度,假设你查到数据集合条数是Adodc1.Recordset.RecordCount已经得出来了
  For i=0 to Adodc1.recordset.recordCount
      Adodc1.Recordset.MoveNext
      Adodc2.Recordset.AddNew
      Adodc2.Recordset.Field("字段")=Adodc1.Recordset.Fields("对应的字段")
      Adodc2.Recordset.Update
      Label1.Lenth=i/100*300     '//假设Label最大长度300
      Label1.Caption=Cstr(i)+ "%"
   Next i
End Sub

热心网友时间：2024-10-21 13:06

if text1.text=“xxx” then
自己写想要的内容
else
msgbox "XXXXXXXX" ’一样自己写想要弹出的内容
end if
算了懒得写了。
这些问题百度都百度的出来的、。