求助字典高手帮我做个英语单词查询

renahu

山菊花 发表于 2014-9-4 21:55
理解正确，而且表述简洁到位。给你留道作业，有兴趣就做做，修改程序，要求用一个数组取代crr与brr。

老师您好，一直没有等来您的回复，窗体显示的问题是不是不好解决呀？

山菊花

renahu 发表于 2014-9-8 09:22
老师您好，一直没有等来您的回复，窗体显示的问题是不是不好解决呀？

对不起。
首先，我觉得你这个问题是个华而不实的问题，客厅的电源开关为什么一定要装在床头？等你自己有能力时再解决不迟。其次，影响程序运行速度是有多种原因的，凭空想像不一定能判断准确，所以不如不说，就像有人打电话或视频问医生，我头晕乏力，要吃什么药好？
请理解，谢谢。
祝中秋节快乐！

renahu

山菊花 发表于 2014-9-8 18:56
对不起。
首先，我觉得你这个问题是个华而不实的问题，客厅的电源开关为什么一定要装在床头？等你自己有 ...

真的没明白，代码的运行，不管速度快慢，也不至于让窗体不显示吧？而且这怎么能是华而不实的问题呢？如果程序的运行造成用户界面不显示，这肯定让用户无法接受，老师您说呢？

山菊花

真的不明白的问题肯定还很多，既然不想深学就可以放过它。华而不实是个人观点，如果你认为不是就不是，你说了算。
晚安。

renahu

山菊花 发表于 2014-9-9 01:08
真的不明白的问题肯定还很多，既然不想深学就可以放过它。华而不实是个人观点，如果你认为不是就不是，你说 ...

老师我终于找到解决办法了，是Set wb = GetObject(cPath & "英语单词表" & i & ".xls")
会在当前打开的Excel程序中打开文件，从而影响了窗体的显示，可以单独创建一个Excel程序来打开这些文件：
dim ExApp as excel.application
set exapp=createobject("Excel.application")
exapp.visible=filse   ‘新excel程序不可视
ExApp.AutomationSecurity = 3    ’禁用该Excel程序的宏，
set wb=exapp.workbooks.open(cPath & "英语单词表" & i & ".xls")     

山菊花

renahu 发表于 2014-9-9 13:12
老师我终于找到解决办法了，是Set wb = GetObject(cPath & "英语单词表" & i & ".xls")
会在当前打开的 ...

真心恭喜你，能想到这个办法真不简单，向你学习。
看过59楼的代码，解决办法也是中规中矩的，一点也不笨。

renahu

山菊花 发表于 2014-9-9 14:11
真心恭喜你，能想到这个办法真不简单，向你学习。
看过59楼的代码，解决办法也是中规中矩的，一点也不笨 ...

谢谢老师点评，65楼的办法是请教另一位老师的结果，现在感觉这个论坛真好，你帮你把，他帮一把，就算我这样的菜鸟，再困难的事情最终也都解决了，还学到了书本上学不到的知识，呵呵，多谢老师啦！

renahu

renahu 发表于 2014-9-9 14:19
谢谢老师点评，65楼的办法是请教另一位老师的结果，现在感觉这个论坛真好，你帮你把，他帮一把，就算我这 ...

老师您好，我在词库里加了个查询，但为了更方便，想加个光标定位后的“控件跟随”，我看控件的方法里没有move这项，您看如何实现？
求助高人！如何让光标定位后控件也跟过来？ 已解决

renahu

山菊花 发表于 2014-9-9 14:11
真心恭喜你，能想到这个办法真不简单，向你学习。
看过59楼的代码，解决办法也是中规中矩的，一点也不笨 ...

老师您好，现在这个小词典的简单功能完善和维护我应该没问题了，但是我还想加一个功能，不知您能否帮我实现：就是选择一个单词表名，然后从词库中删选出这张表的所有单词，通过复选框对所有或需要的单词打钩，然后把打过钩的单词按行排列打印成长宽设定好的单词条，并进行打印，这样可以裁成小条方便背诵。您有空帮我看看

renahu

山菊花 发表于 2014-9-9 14:11
真心恭喜你，能想到这个办法真不简单，向你学习。
看过59楼的代码，解决办法也是中规中矩的，一点也不笨 ...

经过多方努力，我的打印功能已经建成，但还有个问题想请教您：
要想打印预览，一定要把excel设置成：Application.Visible = True 吗？
http://club.excelhome.net/thread-1152054-1-1.html