[已解决]登陆窗体怎么设置？

dadasdas · 发表于 2013-3-7 21:30

本帖最后由 dadasdas 于 2013-3-7 21:55 编辑

窗体用户名能不能设置在左边，密码输入方式能不能从左往右？
附件：

登陆窗体.rar (21.89 KB, 下载次数: 24)

hwc2ycy · 发表于 2013-3-7 21:42

密码左对齐。

hwc2ycy · 发表于 2013-3-7 21:43

用户名组合框文本左对齐。
QQ截图20130307214137.jpg

dadasdas · 发表于 2013-3-7 21:45

hwc2ycy 发表于 2013-3-7 21:43
用户名组合框文本左对齐。

还有右上角的关闭按钮关不起来，怎么设置的？

hwc2ycy · 发表于 2013-3-7 21:46

本帖最后由 hwc2ycy 于 2013-3-7 21:51 编辑

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'If CloseMode = 0 Then Cancel = 1
End Sub

复制代码

如果用户在 UserForm选择“控制”菜单中的“关闭”命令或直接单击窗体右上角的关闭按钮，则取消关闭操作。

hwc2ycy · 发表于 2013-3-7 21:47

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

QueryClose 事件
请参阅示例应用于特性

发生在 UserForm 关闭之前。

语法

Private Sub UserForm_QueryClose(cancel As Integer, closemode As Integer)

QueryClose 事件的语法具有以下几部分：

单元描述
cancel 一个整数。将此参数设置成 0 以外的任意值，在所有加载的用户窗体中停止 QueryClose 事件，并防止关闭 UserForm 与应用程序。
closemode 一个值或常数，用来指示引起 QueryClose 事件的原因。

返回值

closemode 参数返回下列值：

常数值描述
vbFormControlMenu 0 用户在 UserForm.上选择“控制”菜单中的“关闭”命令。
VbFormCode 1 由代码调用 Unload 语句。
vbAppWindows 2 正在结束当前 Windows 操作环境的过程。(仅用于Visual Basic 5.0 。)
vbAppTaskManager 3 Windows 的“任务管理器”正在关闭这个应用。(仅用于Visual Basic 5.0 。)

hwc2ycy · 发表于 2013-3-7 21:48

这样做也是对的，防止直接X掉窗体。

dadasdas · 发表于 2013-3-7 22:33

hwc2ycy 发表于 2013-3-7 21:48
这样做也是对的，防止直接X掉窗体。

还有光标放在按钮上变成红字怎么实现的

hwc2ycy · 发表于 2013-3-7 22:37

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
Me.CommandButton1.ForeColor = &H4000&
Me.CommandButton2.ForeColor = &H4000&
End Sub

复制代码

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
Me.CommandButton1.ForeColor = &HFF&
End Sub

复制代码

Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
Me.CommandButton2.ForeColor = &HFF&
End Sub

复制代码

dadasdas · 发表于 2013-3-8 23:43

hwc2ycy 发表于 2013-3-7 22:37

光标离开按钮，怎么还是变成红字？

		自动登录	找回密码
密码			注册