BDYCAD 发表于 2005-6-27 18:44:00

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

本帖最后由 作者 于 2005-6-27 19:08:19 编辑

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



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


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








gzy 发表于 2005-6-27 19:50:00

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


Private Sub CommandButton2_Click()<BR>       Exit Sub<BR>End Sub

BDYCAD 发表于 2005-6-27 20:43:00

怎麼不行?

雪山飞狐_lzh 发表于 2005-6-27 21:35:00

True写错：）


Private Sub CommandButton1_Click()<BR>                       If OptionButton1.Value Then ThisDrawing.SetVariable "USERI1", 1<BR>                       If OptionButton2.Value Then ThisDrawing.SetVariable "USERI1", 0<BR>                       Unload Me<BR>End Sub


Private Sub CommandButton2_Click()<BR>                       Unload Me<BR>End Sub<BR>

BDYCAD 发表于 2005-6-28 07:27:00

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

BDYCAD 发表于 2005-6-28 16:38:00

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










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

雪山飞狐_lzh 发表于 2005-6-28 21:15:00

文本文件的格式？


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

BDYCAD 发表于 2005-6-29 09:11:00

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

雪山飞狐_lzh 发表于 2005-6-29 09:25:00

下面的例子向一个文本文件写


Sub tt()<BR>Open "c:\2.txt" For Binary As 1#<BR>Put 1#, , "ABC" &amp; vbCrLf &amp; "123"<BR>Close 1#<BR>End Sub<BR>


对应的，你可以用TextBox1.Text代替上面的"ABC"，TextBox2.Text代替"123".......

BDYCAD 发表于 2005-6-29 09:47:00

呵呵. 真巧, 没有看到你的回贴时我在书上看到. 会了. 不过还是很感谢你, 呵呵
页: [1] 2
查看完整版本: [求助]VBA里面單選鍵如何輸出參數啊