Visual Bacis
蔡健常熟
这个作者很懒,什么都没留下…
展开
-
窗体控件大小随窗体大小变化而变化
有时窗体变化后,如改变分辨率后控件大小却不能随之改变。手工代码调整实在麻烦,下面的模块实现自动查找窗体上控件并使其改变大小以适应窗体变化。在Form的Resize事件中调用函数Resize_All就能实现控件自动调整大小,如:Private Sub Form_Resize()Dim H, i As IntegerOn Error Resume NextResize_ALL Me Me原创 2004-04-26 12:59:00 · 1972 阅读 · 0 评论 -
VB代码创建数据库
先引用Mcrsoft DAO 3.6(或2.5或3.51) Object Library和Mcrsoft Access 9.0 Object Library,在Form上加个Command1,粘贴以下代码:Private Sub Command1_Click() Dim wrkDefault As Workspace Dim dbsNew As Database Dim tdfN原创 2004-04-26 12:46:00 · 2186 阅读 · 0 评论