[求助]VBA里面單選鍵如何輸出參數啊

BDYCAD

一个很简单的求教, 怎么把VBA的单选键的值输出来呀?



下面是VBA, 我想这样子, 当点A 时再点OK的话就把系统变量USERI1 为 0 ;


                                                                                                                                                                                                                 当点B时再点OK的话就把系统变量USERI1 为        1 ;

gzy

Private Sub CommandButton1_Click()
If OptionButton1.Value = ture Then
ThisDrawing.SetVariable "USERI1", 1
Else
ThisDrawing.SetVariable "USERI1", 0
End If
UserForm1.Hide
End Sub Private Sub CommandButton2_Click()
Exit Sub
End Sub

BDYCAD

怎麼不行?

雪山飞狐_lzh

True写错：） Private Sub CommandButton1_Click()
If OptionButton1.Value Then ThisDrawing.SetVariable "USERI1", 1
If OptionButton2.Value Then ThisDrawing.SetVariable "USERI1", 0
Unload Me
End Sub Private Sub CommandButton2_Click()
Unload Me
End Sub

BDYCAD

哦, 原来是这样, 我急用这个.这么简单的我还不会.         呵呵.

BDYCAD

求教: 那象下面这么多参数的怎么把这些参数存在一个文件上呀?










         
下面是我用LISP组合DCL写的, 但效果很差上不了臺. 所以想改成上面用VBA做个界面还望高手指教

雪山飞狐_lzh

文本文件的格式？


多行文本可以设置MultiLine属性为True

BDYCAD

谢谢. 又学习一招, 今天想学会怎么做成功, 呵呵.多多教导,

雪山飞狐_lzh

下面的例子向一个文本文件写 Sub tt()
Open "c:\2.txt" For Binary As 1#
Put 1#, , "ABC" & vbCrLf & "123"
Close 1#
End Sub
对应的，你可以用TextBox1.Text代替上面的"ABC"，TextBox2.Text代替"123".......

BDYCAD

呵呵. 真巧, 没有看到你的回贴时我在书上看到. 会了. 不过还是很感谢你, 呵呵