📄 form2.frm
字号:
VERSION 5.00
Begin VB.Form Form2
BackColor = &H00FFC0C0&
Caption = "参数设置"
ClientHeight = 4995
ClientLeft = 60
ClientTop = 345
ClientWidth = 5655
Icon = "Form2.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4995
ScaleWidth = 5655
StartUpPosition = 2 'CenterScreen
Begin VB.Frame Frame3
BackColor = &H00FFC0C0&
Caption = "75Hz场频"
Height = 4095
Left = 3720
TabIndex = 14
Top = 120
Width = 1815
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "1024*768 85Hz"
Height = 255
Index = 29
Left = 120
TabIndex = 34
Top = 3600
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "1280*768 75Hz"
Height = 255
Index = 28
Left = 120
TabIndex = 33
Top = 3240
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "1280*720 75Hz"
Height = 255
Index = 27
Left = 120
TabIndex = 32
Top = 2880
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "1152*864 75Hz"
Height = 255
Index = 26
Left = 120
TabIndex = 31
Top = 2520
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "1024*768 75Hz"
Height = 255
Index = 25
Left = 120
TabIndex = 30
Top = 2160
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "848*480 75Hz"
Height = 255
Index = 24
Left = 120
TabIndex = 29
Top = 1800
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "800*600 75Hz"
Height = 255
Index = 23
Left = 120
TabIndex = 28
Top = 1440
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "720*576 75Hz"
Height = 255
Index = 22
Left = 120
TabIndex = 27
Top = 1080
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "720*480 75Hz"
Height = 255
Index = 21
Left = 120
TabIndex = 26
Top = 720
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "640*480 75Hz"
ForeColor = &H00000000&
Height = 255
Index = 20
Left = 120
TabIndex = 25
Top = 360
Width = 1575
End
End
Begin VB.CommandButton Command2
BackColor = &H00FFC0C0&
Caption = "取消"
Height = 375
Left = 3120
Style = 1 'Graphical
TabIndex = 13
Top = 4440
Width = 1215
End
Begin VB.CommandButton Command1
BackColor = &H00FFC0C0&
Caption = "确定"
Height = 375
Left = 1320
Style = 1 'Graphical
TabIndex = 12
Top = 4440
Width = 1215
End
Begin VB.Frame Frame2
BackColor = &H00FFC0C0&
Caption = "70Hz场频"
Height = 4095
Left = 1920
TabIndex = 1
Top = 120
Width = 1815
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "1280*960 70Hz"
Height = 255
Index = 19
Left = 120
TabIndex = 24
Top = 3600
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "1280*768 70Hz"
Height = 255
Index = 18
Left = 120
TabIndex = 23
Top = 3240
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "1280*720 70Hz"
Height = 255
Index = 17
Left = 120
TabIndex = 22
Top = 2880
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "1152*864 70Hz"
Height = 255
Index = 16
Left = 120
TabIndex = 21
Top = 2520
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "1024*768 70Hz"
Height = 255
Index = 15
Left = 120
TabIndex = 20
Top = 2160
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "848*480 70Hz"
Height = 255
Index = 14
Left = 120
TabIndex = 19
Top = 1800
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "800*600 70Hz"
Height = 255
Index = 13
Left = 120
TabIndex = 18
Top = 1440
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "720*576 70Hz"
Height = 255
Index = 12
Left = 120
TabIndex = 17
Top = 1080
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "720*480 70Hz"
Height = 255
Index = 11
Left = 120
TabIndex = 16
Top = 720
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "640*480 70Hz"
ForeColor = &H00000000&
Height = 255
Index = 10
Left = 120
TabIndex = 15
Top = 360
Width = 1575
End
End
Begin VB.Frame Frame1
BackColor = &H00FFC0C0&
Caption = "60Hz场频"
Height = 4095
Left = 120
TabIndex = 0
Top = 120
Width = 1815
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "1280*960 60Hz"
Height = 255
Index = 9
Left = 120
TabIndex = 11
Top = 3600
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "1280*768 60Hz"
Height = 255
Index = 8
Left = 120
TabIndex = 10
Top = 3240
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "1280*720 60Hz"
Height = 255
Index = 7
Left = 120
TabIndex = 9
Top = 2880
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "1152*864 60Hz"
Height = 255
Index = 6
Left = 120
TabIndex = 8
Top = 2520
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "1024*768 60Hz"
Height = 255
Index = 5
Left = 120
TabIndex = 7
Top = 2160
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "800*600 60Hz"
Height = 255
Index = 4
Left = 120
TabIndex = 6
Top = 1800
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "800*600 60Hz"
Height = 255
Index = 3
Left = 120
TabIndex = 5
Top = 1440
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "800*600 60Hz"
Height = 255
Index = 2
Left = 120
TabIndex = 4
Top = 1080
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "800*600 60Hz"
Height = 255
Index = 1
Left = 120
TabIndex = 3
Top = 720
Width = 1575
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "640*480 60Hz"
ForeColor = &H00000000&
Height = 255
Index = 0
Left = 120
TabIndex = 2
Top = 360
Width = 1575
End
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Const EM_GETLINE = &HC4
Const EM_LINELENGTH = &HC1
Const EM_LINEINDEX = &HBB
Const EM_GETLINECOUNT = &HBA
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
Private Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
Private Xz(29) As String
Private Ll As Long
Sub TB_GetLine(ByVal hWnd As Long, ByVal whichLine As Long, Line As String, lle As Long) '以下为读取form2.richtextbox中第N行的数据的函数
Dim length As Long, bArr() As Byte, bArr2() As Byte, lc As Long, txtlinecount As Long
lc = SendMessage(hWnd, EM_LINEINDEX, whichLine, ByVal 0&)
length = SendMessage(hWnd, EM_LINELENGTH, lc, ByVal 0&)
txtlinecount = SendMessage(hWnd, EM_GETLINECOUNT, 0, 0) '得到文本中共有多少行
lle = txtlinecount
If length > 0 Then
ReDim bArr(length + 1) As Byte, bArr2(length - 1) As Byte
Call RtlMoveMemory(bArr(0), length, 2)
Call SendMessage(hWnd, EM_GETLINE, whichLine, bArr(0))
Call RtlMoveMemory(bArr2(0), bArr(0), length)
Line = StrConv(bArr2, vbUnicode) '得到行的内容
Else
Line = ""
End If
End Sub
Private Sub Command1_Click()
Dim i As Integer
Dim s As String
Dim T As Integer
Form1.Text1.Text = ""
s = ""
For i = 0 To 29
If Check1(i).Value = 1 Then
s = s + "1" + vbCrLf
T = T + 1
Else
s = s + "0" + vbCrLf
End If
Next i
If T = 0 Then
MsgBox "请选择至少一种需要切换的分辨率！", vbExclamation + vbOKOnly, "参数设置错误"
Form2.ZOrder
Exit Sub
End If
Form1.Text1.Text = s
'此处保存数据到文本文件
Open App.Path & "\sz.txt" For Output As #2 '用Append把用户添加进存放用户的文件中
Print #2, s
Close #2
'此处要改变循环的次数和数值（处理方法同初始装载时）
Form1.Timer1.Enabled = True
Form2.Visible = False
MsgBox "新设置已生效！", vbInformation + vbOKOnly, "设置成功"
End Sub
Private Sub Command2_Click()
Dim i As Integer
For i = 0 To 29
Call TB_GetLine(Form1.Text1.hWnd, i, Xz(i), Ll)
If Xz(i) = "1" Then
Check1(i).Value = 1
Else
Check1(i).Value = 0
End If
Next i
Form2.Visible = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -