代码搜索:msgbox
找到约 3,543 项符合「msgbox」的源代码
代码结果 3,543
www.eeworm.com/read/183257/9174045
frm frmbackup.frm
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form frmBackup
BorderStyle = 3 'Fixed Dialog
Caption = "数据备份"
ClientHeight
www.eeworm.com/read/379404/9198956
frm xtdl.frm
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form xtdl
BorderStyle = 3 'Fixed Dialog
Caption = "系统登录"
ClientHeight =
www.eeworm.com/read/182192/9212743
htm 3_10.htm
SELECT CASE语句
请输入一个数字:
sub B1_onclick()
select case T1.value
case 1
msgbox "输入为1"
www.eeworm.com/read/182116/9216984
h 3deffects.h
/* Zgv v3.1 - GIF, JPEG and PBM/PGM/PPM viewer, for VGA PCs running Linux.
* Copyright (C) 1993-1998 Russell Marks. See README for license details.
*
* 3deffects.h - prototypes for 3deffects.c
*/
www.eeworm.com/read/378525/9224741
bas formshowfunction.bas
Attribute VB_Name = "FormShowFunction"
'/* 显示&隐藏主窗体 */
Sub SwitchShow()
MainForm.Visible = Not MainForm.Visible '切换窗体显示
End Sub
'/* 隐藏主窗体 */
Public Sub HideMainForm()
MainForm.Hide
www.eeworm.com/read/378183/9244320
dat vb_fun75b.dat
语法
----
MsgBox(prompt[, buttons] [, title] [, helpfile, context])
MsgBox 函数的语法具有以下几个命名参数:
部分 描述
Prompt 必需的.字符串表达式,作为显示在对话框中的消息.prompt 的最大长度大约为 1024 个字符,由所用字符的 宽度决定.如果 pr
www.eeworm.com/read/378183/9244627
dat vb_att3b.dat
语法
----
object.Attributes [= newattributes]
Attributes 属性有下列几个部分:
部分 描述
object 必需的。总是某个 File 或者 Folder 对象的名字。
newattributes 可选的。如果提供的话,newattributes 就是所指定 object 的新属性
www.eeworm.com/read/378183/9244659
dat vb_att23b.dat
语法
----
object.IsRootFolder
object 总是一个 Folder 对象。
说明
----
下面的代码举例说明了 IsRootFolder 属性的用法:
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
Sub DisplayLevelDepth(pathspec)
www.eeworm.com/read/181269/9260943
frm frmaddtitle.frm
VERSION 5.00
Begin VB.Form FrmAddTitle
Caption = "增加新书种界面"
ClientHeight = 2175
ClientLeft = 60
ClientTop = 450
ClientWidth = 9900
LinkTopi
www.eeworm.com/read/180159/9317607
frm rsa.frm
VERSION 5.00
Object = "{10336011-AB2C-11D4-8E1C-00002100DD42}#4.0#0"; "MWAX.OCX"
Begin VB.Form RSA
Caption = "RSA"
ClientHeight = 6270
ClientLeft = 60
ClientTo