代码搜索：MsgBox
找到约 3,543 项符合「MsgBox」的源代码
代码结果 3,543
www.eeworm.com/read/131898/14121270
frm frmsyslogon.frm
VERSION 5.00
Begin VB.Form SystemLogon
BorderStyle = 3 'Fixed Dialog
Caption = "用户登录"
ClientHeight = 1965
ClientLeft = 45
ClientTop = 330
www.eeworm.com/read/131795/14125521
dat vb_fun75b.dat
语法
----
MsgBox(prompt[, buttons] [, title] [, helpfile, context])
MsgBox 函数的语法具有以下几个命名参数：
部分 描述
Prompt 必需的.字符串表达式,作为显示在对话框中的消息.prompt 的最大长度大约为 1024 个字符,由所用字符的 宽度决定.如果 pr
www.eeworm.com/read/131795/14125816
dat vb_att3b.dat
语法
----
object.Attributes [= newattributes]
Attributes 属性有下列几个部分：
部分 描述
object 必需的。总是某个 File 或者 Folder 对象的名字。
newattributes 可选的。如果提供的话，newattributes 就是所指定 object 的新属性
www.eeworm.com/read/131795/14125867
dat vb_att23b.dat
语法
----
object.IsRootFolder
object 总是一个 Folder 对象。
说明
----
下面的代码举例说明了 IsRootFolder 属性的用法：
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
Sub DisplayLevelDepth(pathspec)
www.eeworm.com/read/131546/14138225
vb form1.vb
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows 窗体设计器生成的代码 "
Public Sub New()
MyBase.New()
'该调用是 Windows 窗体设计器所必需的。
InitializeCompon
www.eeworm.com/read/130876/14171351
bas mmqrmainmodule.bas
Attribute VB_Name = "MainModule"
Sub Main()
Dim mtxA(4, 3) As Double
Dim mtxQ(4, 4) As Double
mtxA(1, 1) = 1: mtxA(1, 2) = 1: mtxA(1, 3) = -1
mtxA(2, 1) = 2: mtxA(2, 2) = 1:
www.eeworm.com/read/130876/14171410
bas mtrenchmainmodule.bas
Attribute VB_Name = "MainModule"
Sub Main()
Dim t(6) As Double
Dim tt(6) As Double
Dim mtxB(6, 6) As Double
t(1) = 10
t(2) = 5
t(3) = 4
t(4) = 3
t(5) = 2
www.eeworm.com/read/130876/14171432
bas mrinvmainmodule.bas
Attribute VB_Name = "MainModule"
Sub Main()
Dim mtxA(4, 4) As Double
Dim mtxB(4, 4) As Double
Dim mtxC(4, 4) As Double
' 原矩阵
mtxA(1, 1) = 0.2368: mtxA(1, 2) = 0.2471
www.eeworm.com/read/130876/14171448
bas mssgjmainmodule.bas
Attribute VB_Name = "MainModule"
Sub Main()
Dim mtxA(4, 4) As Double
Dim mtxB(4, 4) As Double
Dim mtxC(4, 4) As Double
' 原矩阵
mtxA(1, 1) = 5: mtxA(1, 2) = 7: mtxA(
www.eeworm.com/read/130876/14171453
bas mdetcholmainmodule.bas
Attribute VB_Name = "MainModule"
Sub Main()
Dim mtxA(4, 4) As Double
Dim nDetA As Double
mtxA(1, 1) = 5: mtxA(1, 2) = 7: mtxA(1, 3) = 6: mtxA(1, 4) = 5
mtxA(2, 1) = 7: m