user_nalfg 发表于 2013-2-19 17:18:00

请高手帮我写段代码,实现动态超链接,谢谢!

请高手帮我写段代码,谢谢!我的要求是:在TextBox1中输入数字,点击“返回”按钮,实现超链接返回所输入该页幻灯片。如输入3,返回第3页幻灯片。

w0x0000w0x 发表于 2013-2-19 19:49:48

n = Val(TextBox1.Text)
SlideShowWindows(Index:=1).View.GotoSlide Index:=n

user_vrczz 发表于 2013-2-19 19:50:02

这个代码没有纠错功能,当你在文本框中输入大于5的数字时,会报错,你自己加代码纠错吧

user_nqlyh 发表于 2013-2-19 20:32:28

谢谢,不过我也自己解决了,好像这样也行,SlideShowWindows(1).View.GotoSlide TextBox1.Text,也没有纠错功能

ak10170 发表于 2013-2-19 20:35:56

解决了就好,写代码要严谨,你那代码没考虑如果在文本框中输入的不是数字的情况.....

rinkin527 发表于 2013-2-19 20:38:15

学习了.      

33758914 发表于 2013-2-19 21:06:57

果然是高手呀。。。。
页: [1]
查看完整版本: 请高手帮我写段代码,实现动态超链接,谢谢!