动态添加控件和代码

taller · 发表于 2004-7-9 09:15

以下是引用lj1226189在2004-7-8 21:12:00的发言：

你少了一句代码,要细心哟 :-)

With TempForm.CodeModule X = .CountOfLines .InsertLines X + 1, "Private Sub OptionButton" & i & "_Click()" .InsertLines X + 2, " Cells(8, 8) = Me.ActiveControl.Tag" .InsertLines X + 3, " Unload Me" .InsertLines X + 4, "End Sub" End With

SWFWIND · 发表于 2006-9-21 14:22

佩服啊

ldy888 · 发表于 2006-9-22 02:49

越翻老贴越发觉这里高人多!!!!

PF!!!

cgc179 · 发表于 2006-9-30 16:02

哎，厉害，我们什么时候可以啊

[em02]

丁壬易龙 · 发表于 2007-5-12 10:13

谢谢

ntccharles · 发表于 2007-10-6 00:18

有個問題：

如果我做好了USERFORM & FRAME等控件，如何再用VBA來動態添加其他的控件?　

shing32356 · 发表于 2007-10-6 10:35

太厉害了,从原来对电子表格一窍不通,到现在很熟练,到现在能看懂一些代码,

在这里衷心的感谢论坛的各位老师及同仁们,谢谢你们,

班主们,你们辛苦了

帮忙看一下这个怎么弄好吗?主要是第二行的保存问题.

http://club.excelhome.net/viewthread.php?tid=270002&px=0

[此贴子已经被作者于2007-10-6 10:41:26编辑过]

mnpking · 发表于 2007-10-8 17:09

是不是这样的?

iV3YGmve.rar (7.05 KB, 下载次数: 8899)

wsri · 发表于 2007-10-8 20:36

高人啊！

chijanzen · 发表于 2004-7-8 13:58

以下是引用lj1226189在2004-7-7 17:17:00的发言：

我想再问两个问题！

1，编辑器里怎么看不到窗体，哪一句代码是将温度加到H8

2，能否点击温度后自动退出窗体。

你好:

第一個問題:

哪一句代码是将温度加到H8

With TempForm.CodeModule X = .CountOfLines .InsertLines X + 1, "Private Sub OptionButton" & i & "_Click()" .InsertLines X + 2, " Cells(8, 8) = Me.ActiveControl.Tag" .InsertLines X + 3, "End Sub" End With

第二個問題:能否点击温度后自动退出窗体。

還是用上一句

With TempForm.CodeModule X = .CountOfLines .InsertLines X + 1, "Private Sub OptionButton" & i & "_Click()" .InsertLines X + 2, " Cells(8, 8) = Me.ActiveControl.Tag" .InsertLines X + 3, " Unload Me" .InsertLines X + 4, "End Sub" End With

		自动登录	找回密码
密码			免费注册