📄 main.frm
字号:
VERSION 5.00
Begin VB.Form frmMain
Caption = "Visual Resistor Value Finder V2.0"
ClientHeight = 8490
ClientLeft = 2160
ClientTop = 1005
ClientWidth = 10305
FillColor = &H00FFFFFF&
Icon = "main.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 8490
ScaleWidth = 10305
Begin VB.ListBox Lstb4
BeginProperty Font
Name = "Times New Roman"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
ItemData = "main.frx":030A
Left = 7440
List = "main.frx":0323
TabIndex = 21
ToolTipText = "Select the colour for fourth band "
Top = 5880
Width = 1455
End
Begin VB.ListBox Lstb3
BeginProperty Font
Name = "Times New Roman"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
ItemData = "main.frx":0355
Left = 5520
List = "main.frx":037A
TabIndex = 20
ToolTipText = "Select the colour for third band"
Top = 5880
Width = 1455
End
Begin VB.ListBox Lstb2
BeginProperty Font
Name = "Times New Roman"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
ItemData = "main.frx":03CC
Left = 3480
List = "main.frx":03F1
TabIndex = 19
ToolTipText = "Select colour for Second Band"
Top = 5880
Width = 1455
End
Begin VB.ListBox Lstb1
BeginProperty Font
Name = "Times New Roman"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
ItemData = "main.frx":0443
Left = 1320
List = "main.frx":0468
TabIndex = 18
ToolTipText = "Select the colour for first band"
Top = 5880
Width = 1455
End
Begin VB.CommandButton cmdexit
Caption = "Exit"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6480
TabIndex = 17
ToolTipText = "Shrotcut ""Ctrl + X"""
Top = 7680
Width = 1455
End
Begin VB.TextBox txttoll
BeginProperty Font
Name = "Times New Roman"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 7560
TabIndex = 14
ToolTipText = "Enter the tollerance value"
Top = 720
Width = 735
End
Begin VB.TextBox txtval
BeginProperty Font
Name = "Times New Roman"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 540
Left = 2760
TabIndex = 6
ToolTipText = "Enter resistor value.For example value is 1000 written as 1K or 1000000 as 1M. For below 1000 just write the value only."
Top = 630
Width = 1695
End
Begin VB.CommandButton cmdclear
Caption = "Clear"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3960
TabIndex = 5
ToolTipText = "Shortcut ""Del"""
Top = 7680
Width = 1695
End
Begin VB.CommandButton Cmdenter
Caption = "Enter"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1200
TabIndex = 4
ToolTipText = "Shortcut ""F9"""
Top = 7680
Width = 1935
End
Begin VB.Label lblrest
Caption = "TTT"
BeginProperty Font
Name = "Times New Roman"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 8040
TabIndex = 16
Top = 6840
Width = 855
End
Begin VB.Label lblper
Caption = "%"
BeginProperty Font
Name = "Times New Roman"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8280
TabIndex = 15
Top = 720
Width = 375
End
Begin VB.Label lbltoll
Caption = "Tollerance: ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -