[求助]小菜求助希望个位达人来指点一下 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → [求助]小菜求助希望个位达人来指点一下

标题：[求助]小菜求助希望个位达人来指点一下

只看楼主

偶是天才

等　级：新手上路
帖　子：62
专家分：0
注　册：2007-4-20

第 21 楼

得分:0

楼主
版主

2007-04-20 19:04

121038

等　级：新手上路
威　望：2
帖　子：414
专家分：0
注　册：2005-8-3

第 22 楼

得分:0

不是扣掉Top.是扣掉height...下面那个状态条的name假如说是tool,那么代码就这样写

with RichTextbox
.width=me.scalewidth
.height=me.scaleheight - tool.height
end with

2007-04-22 22:10

onlylove0106

等　级：新手上路
帖　子：43
专家分：0
注　册：2007-4-23

第 23 楼

得分:0

打起来啦

2007-04-23 18:29

onlylove0106

等　级：新手上路
帖　子：43
专家分：0
注　册：2007-4-23

第 24 楼

得分:0

Private Sub Form_Resize()
With RichTextBox1
.Left = 240
.Top = 480
.Height = Me.Height - 1800
.Width = Me.Width - 600
End With
End Sub

2007-04-23 18:55

onlylove0106

等　级：新手上路
帖　子：43
专家分：0
注　册：2007-4-23

第 25 楼

得分:0

Private Sub Form_Resize()
If Height > 2280 And Width > 840 Then
With RichTextBox1
.Left = 240
.Top = 480
.Height = Me.Height - 1800
.Width = Me.Width - 600
End With
End If
End Sub

2007-04-23 18:59

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-132973-1-1.html