📄
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmMain
Caption = "钢筋计算"
ClientHeight = 4875
ClientLeft = 4035
ClientTop = 2145
ClientWidth = 5175
LinkTopic = "Form1"
ScaleHeight = 4875
ScaleWidth = 5175
Begin VB.Frame Frame4
Height = 615
Left = 0
TabIndex = 25
Top = 3960
Width = 5175
Begin VB.Label Label18
Caption = " 作者主页提供源码下载！ http://vbdak.yeah.net"
Height = 255
Left = 120
TabIndex = 26
Top = 240
Width = 4935
End
End
Begin VB.Frame Frame3
Caption = "计算结果"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Left = 0
TabIndex = 8
Top = 2880
Width = 5175
Begin VB.Label Label17
BackColor = &H00FFFFFF&
Height = 255
Left = 960
TabIndex = 23
Top = 840
Width = 1095
End
Begin VB.Label Label16
BackColor = &H00FFFFFF&
Height = 255
Left = 3120
TabIndex = 22
Top = 360
Width = 1095
End
Begin VB.Label Label15
BackColor = &H00FFFFFF&
ForeColor = &H00404000&
Height = 255
Left = 960
TabIndex = 21
Top = 360
Width = 1215
End
Begin VB.Label Label14
Caption = "吨"
Height = 255
Left = 2280
TabIndex = 17
Top = 840
Width = 495
End
Begin VB.Label Label13
Caption = "公斤"
Height = 255
Left = 4320
TabIndex = 16
Top = 360
Width = 615
End
Begin VB.Label Label12
Caption = "米"
Height = 255
Left = 2280
TabIndex = 15
Top = 360
Width = 375
End
Begin VB.Label Label8
Caption = "合计重"
Height = 255
Left = 240
TabIndex = 11
Top = 840
Width = 855
End
Begin VB.Label Label7
Caption = "重量"
Height = 255
Left = 2640
TabIndex = 10
Top = 360
Width = 1095
End
Begin VB.Label Label6
Caption = "共长"
Height = 255
Left = 240
TabIndex = 9
Top = 360
Width = 855
End
End
Begin VB.Frame Frame2
Caption = "原始数据"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1815
Left = 0
TabIndex = 2
Top = 960
Width = 5175
Begin VB.CommandButton Command1
Caption = "计算"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 2
Left = 3480
MaskColor = &H00FF0000&
TabIndex = 29
Top = 1200
Width = 1095
End
Begin VB.CommandButton Command1
Caption = "计算"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 1
Left = 1920
MaskColor = &H00FF0000&
TabIndex = 28
Top = 1200
Width = 1095
End
Begin VB.CommandButton Command1
Caption = "计算"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 0
Left = 360
MaskColor = &H00FF0000&
TabIndex = 24
Top = 1200
Width = 1095
End
Begin VB.TextBox Text3
Height = 270
Left = 3120
TabIndex = 20
Top = 720
Width = 1095
End
Begin VB.TextBox Text2
Height = 270
Left = 840
TabIndex = 19
Top = 720
Width = 1095
End
Begin VB.TextBox Text1
Height = 270
Left = 3120
TabIndex = 18
Top = 360
Width = 1095
End
Begin VB.Label Label19
BackColor = &H00FFFFFF&
Caption = "1"
Height = 255
Left = 840
TabIndex = 27
Top = 360
Width = 1095
End
Begin VB.Label Label11
Caption = "根"
Height = 255
Left = 4320
TabIndex = 14
Top = 720
Width = 615
End
Begin VB.Label Label10
Caption = "厘米"
Height = 255
Left = 2040
TabIndex = 13
Top = 720
Width = 375
End
Begin VB.Label Label9
Caption = "毫米"
Height = 255
Left = 4320
TabIndex = 12
Top = 360
Width = 615
End
Begin VB.Label Label5
Caption = "数量"
Height = 255
Left = 2640
TabIndex = 7
Top = 720
Width = 735
End
Begin VB.Label Label4
Caption = "每根长"
Height = 255
Left = 240
TabIndex = 6
Top = 720
Width = 615
End
Begin VB.Label Label3
Caption = "直径"
Height = 255
Left = 2640
TabIndex = 5
Top = 360
Width = 975
End
Begin VB.Label Label2
Caption = "编号"
Height = 255
Left = 240
TabIndex = 4
Top = 360
Width = 855
End
End
Begin VB.Frame Frame1
Height = 855
Left = 0
TabIndex = 1
Top = 0
Width = 5175
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "钢筋数量计算程序 V1.0"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 315
Left = 600
TabIndex = 3
Top = 360
Width = 4215
WordWrap = -1 'True
End
End
Begin MSComctlLib.StatusBar sbStatusBar
Align = 2 'Align Bottom
Height = 270
Left = 0
TabIndex = 0
Top = 4605
Width = 5175
_ExtentX = 9128
_ExtentY = 476
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 3360
Text = "状态"
TextSave = "状态"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
AutoSize = 2
TextSave = "2000-mm-13"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
AutoSize = 2
TextSave = "15:15"
EndProperty
EndProperty
End
Begin VB.Menu mnu_gj
Caption = "工具"
Begin VB.Menu mnu_jsq
Caption = "计算器"
End
End
Begin VB.Menu h帮助
Caption = "帮助"
Begin VB.Menu 帮助
Caption = "帮助"
End
Begin VB.Menu mnu0
Caption = "-"
End
Begin VB.Menu mnubro
Caption = "作者主页"
End
Begin VB.Menu mnu01
Caption = "-"
End
Begin VB.Menu mnuabout
Caption = "关于"
End
End
Begin VB.Menu mnugame
Caption = "小游戏"
Begin VB.Menu game1
Caption = "红心大战"
End
Begin VB.Menu game2
Caption = "空当接龙"
End
Begin VB.Menu game3
Caption = "扫雷"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public tg
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
Dim numb As Integer, text0 As String
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
d = Val(Text1.Text)
n = Val(Text3.Text)
l = Val(Text2.Text)
tl = l * n / 100
g = tl * 0.00617 * d * d
tg = tg + g / 1000
numb = numb + 1
Label15.Caption = tl
Label16.Caption = g
Label17.Caption = tg
Label19.Caption = numb
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
text0 = Str(numb) + Str(d) + Str(l) + Str(n) + Str(tl) + Str(g)
Case 1
tg = 0: numb = 1
Label17.Caption = tg
Label19.Caption = numb
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Case 2
Clipboard.Clear
Clipboard.SetText text0
End Select
If Len(text0) > 0 Then Command1(2).Enabled = True
end1:
Label18.ForeColor = &H80000012
tx = " 欢迎访问： VB驿站 网址： http://vbdak.yeah.net "
Label18.Caption = tx
End Sub
Private Sub Form_Load()
Label1.Caption = "钢筋数量计算程序 V" & App.Major & "." & App.Minor
Command1(1).Caption = "归零"
Command1(2).Caption = "复制"
Command1(2).Enabled = False
numb = 1
End Sub
Private Sub game1_Click()
RetVal = Shell("MSHEARTS.EXE", 1)
End Sub
Private Sub game2_Click()
RetVal = Shell("FREECELL.EXE", 1)
End Sub
Private Sub game3_Click()
RetVal = Shell("Winmine.exe", 1)
End Sub
Private Sub Label1_Click()
RetVal = Shell("C:\Program Files\Internet Explorer\Iexplore.exe 199.99.99.1", 1)
If RetVal = 0 Then RetVal = Shell("D:\Program Files\Internet Explorer\Iexplore.exe 199.99.99.1", 1)
End Sub
Private Sub mnu_jsq_Click()
RetVal = Shell("CALC.EXE", 1)
End Sub
Private Sub mnubro_Click()
RetVal = Shell("C:\Program Files\Internet Explorer\Iexplore.exe http://vbdak.yeah.net", 1)
If RetVal = 0 Then RetVal = Shell("D:\Program Files\Internet Explorer\Iexplore.exe http://vbdak.yeah.net", 1)
End Sub
Sub Text1_keyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
End If
End Sub
Sub Text2_keyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
Text3.SelStart = 0
Text3.SelLength = Len(Text3.Text)
End If
End Sub
Sub Text3_keyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
End If
End Sub
Private Sub mnuabout_Click()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "钢筋数量计算程序 V" & App.Major & "." & App.Minor
Msg = Msg + Chr(10) + Chr(13) + Chr(10) + Chr(13)
Msg = Msg + "程序设计：黄岳引 " + Chr(10) + Chr(13) + Chr(10) + Chr(13)
Msg = Msg + " Email:huuye@990.net"
Title = "关于程序 "
Style = vbOKOnly + vbInformation
Response = MsgBox(Msg, Style, Title)
End Sub
Private Sub 帮助_Click()
Label18.ForeColor = &HFF&
tx = "复制后可粘贴到CAD图形及文档中 黄岳引 2000-04-02"
Label18.Caption = tx
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -