VB做双显示器程序
答案:4 悬赏:30 手机版
解决时间 2021-11-26 21:27
- 提问者网友：世勋超人
- 2021-11-26 18:34
VB做双显示器程序
最佳答案
- 五星知识达人网友：山河有幸埋战骨
- 2021-11-26 20:14
多显示器其实就是不同的屏幕坐标，将窗体移动到合适的位置就可以了。
VB codeOption Explicit
Public Const MONITORINFOF_PRIMARY = &H1
Public Const MONITOR_DEFAULTTONEAREST = &H2
Public Const MONITOR_DEFAULTTONULL = &H0
Public Const MONITOR_DEFAULTTOPRIMARY = &H1
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Type MONITORINFO
cbSize As Long
rcMonitor As RECT
rcWork As RECT
dwFlags As Long
End Type
Public Declare Function GetMonitorInfo Lib "user32.dll" Alias "GetMonitorInfoA" _
(ByVal hMonitor As Long, ByRef lpmi As MONITORINFO) As Long
Public Declare Function EnumDisplayMonitors Lib "user32.dll" (ByVal hdc As Long, _
ByRef lprcClip As Any, ByVal lpfnEnum As Long, ByVal dwData As Long) As Long
Public Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As _
Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal _
bRepaint As Long) As Long
Sub Main()
'先显示窗体
Form1.Show
Form2.Show
'在枚举显示器来定位窗体
EnumDisplayMonitors ByVal 0&, ByVal 0&, AddressOf MonitorEnumProc, ByVal 0&
End Sub
Public Function MonitorEnumProc(ByVal hMonitor As Long, ByVal hdcMonitor As Long, _
lprcMonitor As RECT, ByVal dwData As Long) As Long
Dim MI As MONITORINFO, R As RECT
MI.cbSize = Len(MI)
GetMonitorInfo hMonitor, MI
R = MI.rcWork
If CBool(MI.dwFlags = MONITORINFOF_PRIMARY) Then '第一显示器
MoveWindow Form1.hwnd, R.Left, R.Top, R.Right - R.Left, R.Bottom - R.Top, 1&
Else
MoveWindow Form2.hwnd, R.Left, R.Top, R.Right - R.Left, R.Bottom - R.Top, 1&
End If
MonitorEnumProc = 1
End Function
VB codeOption Explicit
Public Const MONITORINFOF_PRIMARY = &H1
Public Const MONITOR_DEFAULTTONEAREST = &H2
Public Const MONITOR_DEFAULTTONULL = &H0
Public Const MONITOR_DEFAULTTOPRIMARY = &H1
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Type MONITORINFO
cbSize As Long
rcMonitor As RECT
rcWork As RECT
dwFlags As Long
End Type
Public Declare Function GetMonitorInfo Lib "user32.dll" Alias "GetMonitorInfoA" _
(ByVal hMonitor As Long, ByRef lpmi As MONITORINFO) As Long
Public Declare Function EnumDisplayMonitors Lib "user32.dll" (ByVal hdc As Long, _
ByRef lprcClip As Any, ByVal lpfnEnum As Long, ByVal dwData As Long) As Long
Public Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As _
Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal _
bRepaint As Long) As Long
Sub Main()
'先显示窗体
Form1.Show
Form2.Show
'在枚举显示器来定位窗体
EnumDisplayMonitors ByVal 0&, ByVal 0&, AddressOf MonitorEnumProc, ByVal 0&
End Sub
Public Function MonitorEnumProc(ByVal hMonitor As Long, ByVal hdcMonitor As Long, _
lprcMonitor As RECT, ByVal dwData As Long) As Long
Dim MI As MONITORINFO, R As RECT
MI.cbSize = Len(MI)
GetMonitorInfo hMonitor, MI
R = MI.rcWork
If CBool(MI.dwFlags = MONITORINFOF_PRIMARY) Then '第一显示器
MoveWindow Form1.hwnd, R.Left, R.Top, R.Right - R.Left, R.Bottom - R.Top, 1&
Else
MoveWindow Form2.hwnd, R.Left, R.Top, R.Right - R.Left, R.Bottom - R.Top, 1&
End If
MonitorEnumProc = 1
End Function
全部回答
- 1楼网友：孤独的牧羊人
- 2021-11-26 22:58
朋友，你好人体直肠末端粘膜下和肛管皮肤下静脉丛发生扩张和屈曲所形成的柔软静脉团，称为痔，又名痔疮、痔核、痔病、痔疾等。痔疮是人类特有的常见病、多发病。
医学所指痔疮包括内痔、外痔、混合痔，是肛门直肠底部及肛门粘膜的静脉丛发生曲张而形成的一个或多个柔软的静脉团的一种慢性疾病。
痔核位于肛门里面黏膜的称为内痔，位于肛门口内侧附近称为外痔，二者都有的称为混合痔。痔疮的症状是患处作痛、便血、严重时，痔块会凸出肛门外(脱垂)，排便后才缩回。
痔疮并非什么不治之症，只要早发现早治疗，是可以彻底治愈的！
最后，一定要多注意日常生活饮食习惯，预防才是最好的。
关于痔疮的治疗，只有特别严重的患者才适用于手术治疗，一般不是特别严重不建议患者手术，因为现在的痔疮手术还不是很完善，出现并发症的几率比较大，很有可能造成大便失禁等问题。
再一个手术只是简单切除，清除了看得见的痔核，并不能清除体内痔毒，恢复痔静脉功能不能解决为什么长痔疮的问题 复发率比较高，所以能不手术就不要手术。
药物治疗可以考虑使用联|邦|痔|消，通过口服配合外用的方式，可以有效消除痔核，恢复痔静脉正常功能，防止复发，是目前非手术治疗的最佳选择。
以上回答希望可以帮到您，祝您早日康复！！
医学所指痔疮包括内痔、外痔、混合痔，是肛门直肠底部及肛门粘膜的静脉丛发生曲张而形成的一个或多个柔软的静脉团的一种慢性疾病。
痔核位于肛门里面黏膜的称为内痔，位于肛门口内侧附近称为外痔，二者都有的称为混合痔。痔疮的症状是患处作痛、便血、严重时，痔块会凸出肛门外(脱垂)，排便后才缩回。
痔疮并非什么不治之症，只要早发现早治疗，是可以彻底治愈的！
最后，一定要多注意日常生活饮食习惯，预防才是最好的。
关于痔疮的治疗，只有特别严重的患者才适用于手术治疗，一般不是特别严重不建议患者手术，因为现在的痔疮手术还不是很完善，出现并发症的几率比较大，很有可能造成大便失禁等问题。
再一个手术只是简单切除，清除了看得见的痔核，并不能清除体内痔毒，恢复痔静脉功能不能解决为什么长痔疮的问题 复发率比较高，所以能不手术就不要手术。
药物治疗可以考虑使用联|邦|痔|消，通过口服配合外用的方式，可以有效消除痔核，恢复痔静脉正常功能，防止复发，是目前非手术治疗的最佳选择。
以上回答希望可以帮到您，祝您早日康复！！
- 2楼网友：西风乍起
- 2021-11-26 22:40
把from2移到屏幕的右侧外就显示在第二窗口。
- 3楼网友：佘樂
- 2021-11-26 21:30
其实这个和软件没有关系。就是双显卡，双显示器的问题。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯