vb中关于标签和文本框的操作
用TextWidth函数: 添加一个控件数组,名称为Text1,数量自定。 Private Sub Form_Load() ss = "中新网6月28日电(王忠会) 综合报道,2011年度菲美“海上联合战备训练演习”(CARAT)将于今日举行,演习将持续到7月8日,共11天。 目前3艘美国海军舰艇已抵达菲律宾西南部岛屿省份巴拉望,菲律宾4艘海军舰艇将与这3艘美军舰艇一起参加演习。有分析称,菲律宾为在近期的南海争端中“壮胆”,积极寻求美国支持;而美国为给“重返亚洲”寻找契机,也采取了主动的态度。 面对近来持续紧张的南海局势,菲律宾军方官员反复强调称,这次军演“与南海问题无关”。" For...全部
用TextWidth函数: 添加一个控件数组,名称为Text1,数量自定。 Private Sub Form_Load() ss = "中新网6月28日电(王忠会) 综合报道,2011年度菲美“海上联合战备训练演习”(CARAT)将于今日举行,演习将持续到7月8日,共11天。
目前3艘美国海军舰艇已抵达菲律宾西南部岛屿省份巴拉望,菲律宾4艘海军舰艇将与这3艘美军舰艇一起参加演习。有分析称,菲律宾为在近期的南海争端中“壮胆”,积极寻求美国支持;而美国为给“重返亚洲”寻找契机,也采取了主动的态度。
面对近来持续紧张的南海局势,菲律宾军方官员反复强调称,这次军演“与南海问题无关”。" For i = 0 To Text1。Count - 1 For j = 1 To Len(ss) If Me。
TextWidth(Left(ss, j)) >= Text1(i)。
Width Then Exit For Next If j = 1 Then Exit For Text1(i) = Left(ss, j - 1) ss = Mid(ss, j) Next End Sub。收起