| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 551 人关注过本帖
标题:窗口缩放
只看楼主 加入收藏
想飞地菜鸟
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-7-24
收藏
 问题点数:0 回复次数:4 
窗口缩放

Dim tt As Double
Dim tl As Double
Dim tw As Double
Dim th As Double

Private Sub Form_Load()
tt = Text1(Index).Top
tl = Text1(Index).Left
tw = Text1(Index).Width
th = Text1(Index).Height
End Sub

Private Sub Form_Resize()
Form1.ScaleHeight = 4290
Form1.ScaleWidth = 7065
Text1(Index).Top = tt
Text1(Index).Left = tl
Text1(Index).Width = tw
Text1(Index).Height = th
End Sub
这是我的代码!就是让文本框的大小跟着窗口的大小而改变,我现在用地是一个文本数组!在这有这样一个问题!按我以上去试,只有text1(0)跟着窗口改变其它地就不会!如果把text1(0)这个文本删了就会出错! 你们帮我看看是怎么回事啊!

搜索更多相关主题的帖子: 缩放 窗口 
2007-08-05 10:23
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 
Index默认为0
所以……

快上课了……
2007-08-05 10:43
随风逐流
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:passerby
等 级:版主
威 望:8
帖 子:4054
专家分:271
注 册:2007-6-13
收藏
得分:0 
for # to #
text.move #,#,#,#
next

[url=http://www./html/6/6694/]极道金丹[/url][url=http://www./html/2/2849/]九阴九阳[/url][url=http://www./html/2/2596/]凡人修仙传[/url]
2007-08-05 14:43
缘吇弹
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:地球
等 级:版主
威 望:43
帖 子:3038
专家分:27
注 册:2007-7-2
收藏
得分:0 

你试下用数字代替括号里的(index)


Repeat  Life=Study;Until (death);
2007-08-05 16:19
想飞地菜鸟
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-7-24
收藏
得分:0 

应该怎么写啊!!可以用数字啊!如果我一个程序里有10个一样地控件其不是要没个都要写啊!


2007-08-05 22:35
快速回复:窗口缩放
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025760 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved