请问如何实现,OptionButton的宽度不变,高度根据Caption的内容自适应
类似Label控件中当,Autosize 和 Wordwrap都为True时的效果一样。参考:http://topic.csdn.net/u/20100729/08/399eef9a-fe6d-4a92-8bee-b0eb11c2751b.html 中的方法我用以下代码实现(但是效果不是很好):Private sub Form_load()
Label1.AutoSize = True
Label1.WordWrap = True
Label1.width = 2000
Label1.Caption = "Blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah " Option1.Caption = Label1.Caption
Option1.Width = Label1.Width
Option1.Height = Label1.Height + 200
End Sub请问大家这种方法有什么问题?还没有别的更方便的效果实现这种效果?
类似Label控件中当,Autosize 和 Wordwrap都为True时的效果一样。参考:http://topic.csdn.net/u/20100729/08/399eef9a-fe6d-4a92-8bee-b0eb11c2751b.html 中的方法我用以下代码实现(但是效果不是很好):Private sub Form_load()
Label1.AutoSize = True
Label1.WordWrap = True
Label1.width = 2000
Label1.Caption = "Blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah " Option1.Caption = Label1.Caption
Option1.Width = Label1.Width
Option1.Height = Label1.Height + 200
End Sub请问大家这种方法有什么问题?还没有别的更方便的效果实现这种效果?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货