VB6设置快捷键自我关闭程序和更改屏幕分辨率时自动调整窗体位置。

vb程序设计 窗口自动调整~

设计窗口时，应该考虑桌面分辨率的问题，现在最小的桌面分辨率估计也是1024*768的了，所以窗体元素以能在1024*768桌面下都能显示为原则，然后在窗体缩放事件中，适当考虑元素随窗口大小变化而位置发生变化的效果。

以下以text1.text为例，其它控件一样的做法

private sub form_load()
me.windowstate = 2
text1.left = 210 ''可以自己修改，该值是text1控件左顶点离窗体左边的距离(15×像素)
text1.top = 210 ''还可以设置宽度和高度
''其它控件一样的设置 左边距离 上边距离，宽度和高度
end sub

你若是需要在运行程序中，鼠标调整窗体大小后，控件位置和大小也相应调整，则需要在事件
form_resize() 中加入刚在form_load()中写的那些控件位置和大小调整的语句

Option Explicit
'将屏幕长度（高度）的总缇数处以水平（Screen.TwipsPerPixelX）
'或垂直（Screen.TwipsPerPixelY）度量对象的每一像素缇数，就得到了相应方向的像素数。

'分别定义初始时候的屏幕宽和高，以及工程的宽和高
Dim pk As Single, pg As Single, fw As Single, fh As Single
Private Sub Command1_Click()
Dim x, y
x = Screen.Width / Screen.TwipsPerPixelX
y = Screen.Height / Screen.TwipsPerPixelY
MsgBox "你的电脑分辨率是 " & x & "*" & y
End
End Sub

Private Sub Command2_Click() ' 让程序鼠标怎么按都没有用
Me.Enabled = False
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '按F6退出
If KeyCode = vbKeyF6 Then Unload Me
End Sub

Private Sub Form_Load()
fw = Me.Width
fh = Me.Height
pk = Screen.Width
pg = Screen.Height
Timer1.Interval = 1000
End Sub

'我记得有个API函数的,可是具体的方法不记得了。所以就用一个timer来实时监控分辨率的··
'Set ddSet = dxSet.DirectDrawCreate("")
'dxSet建立DirectDraw对象ddSet
'ddSet.SetCooperativeLevel Me.hWnd, DDSCL_NORMAL
'设置协作水平
'Set DisModesEnum = ddSet.GetDisplayModesEnum(DDEDM_DEFAULT, dds2)
'DisModesEnum获得支持的显示模式
Private Sub Timer1_Timer()
If Screen.Width <> pk Or Screen.Height <> pg Then
Me.Width = fw / pk * Screen.Width
Me.Height = fh / pg * Screen.Height
End If
End Sub

1、快捷键自我关闭程序；
2、更改屏幕分辨率时自动调整窗体位置；
3、鼠标锁定在桌面上。
是这样的问题吗？
1、必须确定快捷键，例如使用F4键，F4的键码是115，然后使用KeyDown事件：
Private Sub Form_KeyDown(keycode as integer,shift as integer)
if keycode=115 then
end
end if
end sub
对不起，有事，不能回答了。

关闭的快捷键是ALT+F4
自动调整控件位置要在FORM的RESIZE中自己写代码,在.NET中可以自动定位
设置FORM的ENABLE=FALSE就锁定了.

---

务川仡佬族苗族自治县17081366073： VB6设置快捷键自我关闭程序和更改屏幕分辨率时自动调整窗体位置. - ？
朱梵双黄： Option Explicit'将屏幕长度(高度)的总缇数处以水平(Screen.TwipsPerPixelX)'或垂直(Screen.TwipsPerPixelY)度量对象的每一像素缇数,就得到了相应方向的像素数.'分别定义初始时候的屏幕宽和高,以及工程的宽和高 Dim pk As ...

务川仡佬族苗族自治县17081366073： vb6设置热键？
朱梵双黄： 最简单还是 ALT+a Private Sub Combo1_Click() Check1.Caption = ＂&＂ & Combo1 End Sub

务川仡佬族苗族自治县17081366073： VB6 如何给程序设置组合键Ctrl+方向键 - ？
朱梵双黄： KeyDown 或者 KeyUp 事件参数 Shift 的前3位表示功能键(zhidaoShift,Ctrl,Alt),位运算可以判断其状态,回比如判断是否按下了答Ctrl+S Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) if KeyCode=vbKeyS and (Shift and vbCtrlMask) then End sub 判断按下ctrl+Shift+S:if KeyCode=vbKeyS and (Shift and vbCtrlMask) and (Shift and vbShiftMask) then

务川仡佬族苗族自治县17081366073： 关于VB6 中的关闭程序 - ？
朱梵双黄： 很简单嘛!!直接写上:if a=fasle then end end if '后面什么也不用加 也可以直接写: if a=fasle then Unload Me end if

务川仡佬族苗族自治县17081366073： VB6代码:关闭记事本程序？
朱梵双黄： 窗体中添加一个Command控件 工程中新建一个模块: Option Explicit Private Declare Function EnumWindows Lib ＂user32＂ (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Private Declare Function GetWindowThreadProcessId ...

务川仡佬族苗族自治县17081366073： VB6怎么为按钮设置热键 - ？
朱梵双黄： 重写窗体的ProcessCmdKey: Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As BooleanSelect Case keyDataCase Keys.F1...

务川仡佬族苗族自治县17081366073： vb快捷键怎么改 - ？
朱梵双黄： 类似Alt+右、F11这种快捷键是无法更改的,但是类似(&W)这种快捷键是可以更改的.你有没有注意到自动完成关键字可以用两种快捷键实现?一种是Alt+右,一种是分别按下右键快捷菜单键(右边的Windows键和Ctrl之间)和W.所以我们可以更改后者.方法是:菜单视图 工具栏 自定义 单击工具栏选项卡 勾选快捷菜单 在出来的菜单里面点代码窗口 代码窗口 右击自动完成关键字 更改它的名称,比方说把(&W)改成(&E),那么以后就可以通过右键快捷菜单键+E来实现了

务川仡佬族苗族自治县17081366073： VB中 默认按钮与取消按钮的含义是什么?如何设置 - ？
朱梵双黄： 默认是用回车键可以代替,取消是用esc可以代替

务川仡佬族苗族自治县17081366073： 如何设置VB点退出按钮时,自动关闭VB程序 - ？
朱梵双黄： 你的问题含糊不清 Private Sub Form_Load() Command1.Caption = ＂退出＂ End SubPrivate Sub Command1_Click() End End Sub 点击 退出VB 按钮时 这样就可以退出VB,但不退出VB编辑环境,如果生成.EXE, 这时点击 退出VB 这个生...

务川仡佬族苗族自治县17081366073： vb6 点击按钮设置开机自动启动应用程序和取消该应用程序的开机自启动 - ？
朱梵双黄： 你好!有方法的:1)你可以用程序把文件复制到系统的启动目录下;2)至于取消启动就直接删除相应的文件就可以了.仅代表个人观点,不喜勿喷,谢谢.