1. vb内容设置
VB6.0中Label控件的具体用法： 1. Label 控件用来显示文本，但用户不能编辑这些控件。可用此控件标识窗体的对象─ 例如，说明单击控件时将执行何种操作─ 或者在运行时为响应应用程序的事件或进程而显示相应的信息。 使用标签的情况很多，而且目的也不相同。通常用标签来标注本身不具有 Caption 属性的控件。例如，可用 Label 控件为文本框、列表框、组合框等等控件添加描述性的标签。也可用它们为窗体添加说明文字，例如向用户提供帮助信息。 还可编写代码改变 Label 控件显示的文本内容以响应运行时的事件。例如，若应用程序需要用几分钟处理某个变更，则可用标签显示处理状况消息。 因为 Label 控件不接受焦点，所以被用来为其它控件创建访问键。 2. 设置标签的标题 为了改变 Label 控件中显示的文本，可使用 Caption 属性。设计时，可从控件的“属性”窗口中选定并设置此属性。Caption 属性的长度最长可设置成 1024 字节。 3. 排列文本 可使用 Alignment 属性，将 Label 控件中文本的排列方式设置为 Left Justify （0，缺省），Center (1)，或者 Right Justify (2)。 4. AutoSize 和 WordWrap 属性 缺省情况下，当输入到 Caption 属性的文本超过控件宽度时，文本会自动换行，而且在超过控件高度时，超出部分将被裁剪掉。为使控件能够自动调整以适应内容多少，可将 AutoSize 属性设置为 True。这样控件可水平扩充以适应 Caption 属性内容。为使 Caption 属性的内容自动换行并垂直扩充，应将 WordWrap 属性设置为 True。 5. Label 控件是图形控件，可以显示用户不能直接改变的文本。
2. vbs怎么设置
msgbox "hello"MsgBox(prompt[, buttons] [, title] [, helpfile, context])buttons 参数有下列设置值：常数 值 描述vbOKOnly 0 只显示 OK 按钮VbOKCancel 1 显示 OK 及 Cancel 按钮。
VbAbortRetryIgnore 2 显示 Abort、Retry 及 Ignore 按钮。
VbYesNoCancel 3 显示 Yes、No 及 Cancel 按钮。
VbYesNo 4 显示 Yes 及 No 按钮。
VbRetryCancel 5 显示 Retry 及 Cancel 按钮。
VbCritical 16 显示 Critical Message 图标。
VbQuestion 32 显示 Warning Query 图标。
VbExclamation 48 显示 Warning Message 图标。
VbInformation 64 显示 Information Message 图标。
vbDefaultButton1 0 第一个按钮是缺省值。
vbDefaultButton2 256 第二个按钮是缺省值。
vbDefaultButton3 512 第三个按钮是缺省值。
vbDefaultButton 4768 第四个按钮是缺省值。如果"显示 Retry 及 Cancel 按钮" 且让"第三个按钮是缺省值"则：msgbox "hello",517 '517=5+512
3. vb怎么设计
为便于设计菜单，使用菜单编辑器，在设计状态下，选择“工具”，在选择“菜单编辑器”命令，就可以打开对话框，输入内容即可。
4. vb文本框怎么设置
VB显示文本的字体和字号用代码来设置步骤：
一、字号。FrontSize表示字号。刚输入的文本是默认的字体字号，如果想要把文本“快乐学习VB”字号进行改变，就需要编写代码，具体操作，如下图。如果想要改字号为14号，把代码24换成14即可，以此类推。
二、字体
黑体。FrontName表示字体。如果想要把文本“快乐学习VB”改成黑体字，就需要编写代码，具体操作，如下图。（为了方便大家观察字体的变化，我把字号调整为24号，下面都是24号字）。
2、隶书。如果想要把文本“快乐学习VB”换成隶书，可以如下图这样编写代码。
3、微软雅黑。下图是设置字体为微软雅黑的代码，只需要把需要设置的字体写入代码即可。但是，设置的字体得是VB中有的，如果没有可能改变不了。
5. vb页面设置
screen.width
screen.height
这是获取屏幕的像素
me.width
me.height
这是获取程序本身的像素
(me.left+image1.left)/15
窗体与屏幕左边的距离+控件与窗体左边的距离
因为vb中默认的计量单位与像素是15比1的关系所以转化为像素就要除以15
6. vb内容设置为0
在VB中，BorderStyle属性为0的窗体没有边框，并且也没有与边框相关的元素。这种窗体具有简洁、占用空间少等优点，用它可以设计出某些富有个性的窗体。但是，由于它没有标题栏，窗体不能移动，同时也不能改变大小，在某些情况下会给使用者造成一定的麻烦。本文介绍在VB中如何用API函数操作无边框窗体。移动窗体 新建一标准工程，设置Form1的BorderStyle属性为0。此时运行程序后，无法移动窗体。为能移动窗体，在Form1的代码窗口声明下列函数和常数： Option Explicit Private Declare Function ReleaseCapture Lib “user32” ()AsLong Private Declare Function SendMessage Lib “user32”Alias“SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Const WM_SYSCOMMAND = &H112 Const SC_MOVE = &HF012 在Form_MouseDown事件中输入以下代码： Private Sub Form_MouseDown(Button As Integer, Shift As Integer,XAs Single, Y As Single) 按下鼠标左键 If Button = vbcenterButton Then 为当前的应用程序释放鼠标捕获 ReleaseCapture 移动窗体 SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0 End If End Sub 注意：此时窗体上不能放置除Shape控件以外的任何控件，否则，在被控件遮住的地方点按鼠标还是无法移动窗体。要使点按控件也能移动窗体，需再添加一个该控件的MouseDown事件过程，代码与上述过程代码相似。 改变窗体的大小 为了改变窗体的大小，需要添加一个Timer控件，以定时捕获鼠标在窗体中的位置。当鼠标位于窗体边缘时，改变鼠标的形状，以通知用户可以进行改变大小的操作。为此，将Timer控件的Interval属性设为100（即每过100毫秒检测一下鼠标位置），其他取默认值。 在Form1的代码窗口中再添加下列两个函数，并定义两个自定义变量和一个字符串变量： 取得窗体位置的函数 Private Declare Function GetWindowRect Lib “user32” (ByVal hwndAsLong, lpRect As RECT) As Long 取得鼠标位置的函数 Private Declare Function GetCursorPos Lib “user32” (lpPointAsPOINTAPI) As Long 鼠标位置变量 Private Type POINTAPI x As Long y As Long End Type 窗体位置变量 Private Type RECT center As Long Top As Long center As Long Bottom As Long End Type 所要执行的动作变量，是移动还是改变大小及从哪个方向改变大小 Dim Action As String 在Timer1控件的Timer事件过程中添加以下代码： Private Sub Timer1_Timer() Dim MyRect As RECT Dim MyPoint As POINTAPI MyRect返回当前窗口位置 Call GetWindowRect(Me.hwnd, MyRect) MyPoint返回当前鼠标位置 Call GetCursorPos(MyPoint) Select Case True 鼠标位于窗体左上方 Case MyPoint.x Screen.MousePointer = vbSizeNWSE Action = “centerUp” 鼠标位于窗体右下方 Case MyPoint.x > MyRect.center － 5 And MyPoint.y>MyRect.Bottom － 5 Screen.MousePointer = vbSizeNWSE Action = “centerDown” 鼠标位于窗体右上方 Case MyPoint.x > MyRect.center － 5 And MyPoint.y ’45度双向鼠标指针 Screen.MousePointer = vbSizeNESW Action = “centerUp” 鼠标位于窗体左下方 Case MyPoint.x MyRect.Bottom － 5 Screen.MousePointer = vbSizeNESW Action = “centerDown” 鼠标位于窗体左边 Case MyPoint.x MyRect.Bottom － 5 Screen.MousePointer = vbSizeNS Action = “Down” 鼠标位于窗体其他位置 Case Else 默认鼠标指针 Screen.MousePointer = 0 Action = “Move” End Select End Sub 当利用SendMessage函数由系统向窗口发送改变大小的信息时，只要将上面移动窗体的语句“SendMessageMe.hwnd,WM_SYSCOMMAND, SC_MOVE, 0”中的第3个参数改为相应的常数即可。 VB中&HF001～&HF008分别是从左、右、上、左上、右上、下、左下、右下8个方向改变窗体大小的常数。结合移动窗体的代码，将上述Form_MouseDown事件的代码综合如下（也可以把这8个常数声明为自定义常数）： Private Sub Form_MouseDown(Button As Integer, Shift As Integer,xAs Single, y As Single) 按下鼠标左键 If Button = vbcenterButton Then 为当前的应用程序释放鼠标捕获 ReleaseCapture Select Case Action Case “center” SendMessage Me.hwnd, WM_SYSCOMMAND, &HF001, 0 Case “center” SendMessage Me.hwnd, WM_SYSCOMMAND, &HF002, 0 Case “Up” SendMessage Me.hwnd, WM_SYSCOMMAND, &HF003, 0 Case “centerUp” SendMessage Me.hwnd, WM_SYSCOMMAND, &HF004, 0 Case “centerUp” SendMessage Me.hwnd, WM_SYSCOMMAND, &HF005, 0 Case “Down” SendMessage Me.hwnd, WM_SYSCOMMAND, &HF006, 0 Case “centerDown” SendMessage Me.hwnd, WM_SYSCOMMAND, &HF007, 0 Case “centerDown” SendMessage Me.hwnd, WM_SYSCOMMAND, &HF008, 0 Case “Move” SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0 End Select End If End Sub
- 相关评论
- 我要评论
-