- UID
- 7217
- 积分
- 5
- 精华
- 贡献
-
- 威望
-
- 活跃度
-
- D豆
-
- 在线时间
- 小时
- 注册时间
- 2002-7-3
- 最后登录
- 1970-1-1
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
经过朋友的帮助,我的第一个vba程序可以运作起来了,但还是有点问题,程序如下,以及我的一些困惑和求教内容:
模块main:
Public Sub 辅助设计()
UserForm3.show
Dim a As Double, b As Double, c As Double
End Sub
窗体3:
Private Sub CommandButton1_Click()
UserForm3.Hide
UserForm4.show
End Sub
Private Sub CommandButton2_Click()
a = CDbl(TextBox1.Text)
Label2.Caption = "数值" & a
b = a + 5
MsgBox "数值" & b
End Sub
Private Sub CommandButton3_Click()
If OptionButton1.Value = True Then
d = 0
MsgBox "单位kw"
End If
If OptionButton2.Value = True Then
d = 1
MsgBox "单位hp"
End If ——以上的a、b、d参数我要在窗体中使用应该是定义为public,但是这些定义语句应该写在哪里?(请标注出来,让我自行思考)
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub OptionButton1_Click()
End Sub
Private Sub OptionButton2_Click()
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub UserForm_Click()
End Sub ——像这些没有具体功能定义的语句是否可以消除?
窗体4:
Private Sub CommandButton2_Click()
If d = 0 Then lable1.Caption = "d=0,单位kw"
If d = 0 Then lable1.Caption = "d=2,单位hp"
Dim i, k As Integer
For i = 1 To 10
k = i + 5
MsgBox "数值" & k
Next i
End Sub
Private Sub Label1_Click()
End Sub
Private Sub UserForm_Click()
End Sub ——private sub userform_click()表示什么意思?是否就是这个窗体自身的“主体程序”位置呢?vb中的form_load在vba中是否可以使用?还有一个form-in***的是否也可以使用呢? |
|