代码搜索：MsgBox
找到约 3,543 项符合「MsgBox」的源代码
代码结果 3,543
www.eeworm.com/read/370196/9610311
frm main_xtgl_mm.frm
VERSION 5.00
Begin VB.Form main_xtgl_mm
BorderStyle = 3 'Fixed Dialog
Caption = "密码修改"
ClientHeight = 3180
ClientLeft = 2715
ClientTop = 3690
www.eeworm.com/read/369702/9636070
bas inser.bas
Attribute VB_Name = "Inser"
'软宇公司
Public Sub Inser_in()
On Error GoTo Err
Dim Vrs_gw As String
Vrs_gw = Update.Inet1.OpenURL(Update.Uhtt)
Vrs_gw = Mid$(Vrs_gw, InStr(V
www.eeworm.com/read/147670/12540351
txt 日期时间间隔比较.txt
Dim a As Date
Dim b As Date
Dim c As Integer
a=Format("2004-9-1 22:00:02","yyyy-mm-dd hh:nn:ss")
b=Format("2004-9-1 22:25:00","yyyy-mm-dd hh:nn:ss")
c=CInt(DateDiff("n",a,b))
If c>CInt(Text1.Tex
www.eeworm.com/read/135337/13938910
frm frmbasic1.frm
VERSION 5.00
Begin VB.Form frmBasic1
Caption = "Basic information"
ClientHeight = 2700
ClientLeft = 60
ClientTop = 450
ClientWidth = 6120
www.eeworm.com/read/236163/14030334
frm frmadmin.frm
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FrmAdmin
BorderStyle = 3 'Fixed Dialog
Caption = "用户信息"
ClientHeight
www.eeworm.com/read/108943/15569477
frm frmip.frm
VERSION 5.00
Begin VB.Form frmIP
Caption = "Form1"
ClientHeight = 2835
ClientLeft = 3390
ClientTop = 1500
ClientWidth = 6690
LinkTopic
www.eeworm.com/read/104456/15691943
bas mlumainmodule.bas
Attribute VB_Name = "MainModule"
Sub Main()
Dim mtxA(4, 4) As Double
Dim mtxL(4, 4) As Double
Dim mtxU(4, 4) As Double
' 原矩阵
mtxA(1, 1) = 2: mtxA(1, 2) = 4: mtxA(1, 3
www.eeworm.com/read/192685/8361616
txt 如何弹出一个对话框，进行密码效验.txt
在 frmLogin窗 体 上 面 放 置 一 个 文 本 框 ， 将 它 的 passwordchar属 性 设 置 为 "*"， 这 样 用 户 在 输 入 密 码 时 ， 文 本 框 显 示 “ *” 。 你 可 以 在 Form1中 定 义 一 个 Public变 量 sPassword。 在 Command1_Click()中 如 下 ：
sPassword = ""