十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
方法有很多
成都创新互联成立于2013年,我们提供高端网站建设、成都网站制作、成都网站设计、网站定制、全网整合营销推广、小程序制作、微信公众号开发、网站推广服务,提供专业营销思路、内容策划、视觉设计、程序开发来完成项目落地,为成都雨棚定制企业提供源源不断的流量和订单咨询。
1.拖动移开一些控件 把下边的控件显示出来 选择 del删除
2.通过属性窗口调出该控件属性,这时该控件的边框会被标记,然后点击该控件边缘的控制点(作用是给他控制焦点),然后按del
3.打开代码窗口, 打开窗口设计代码, 删除你不需要的控件的定义和初始化语句(一般先删除定义语句,然后所有有关的定义语句都会标记语法错误,然后就可以方便的看出来 ,最后就是把标记了错误的相关语句删除就ok了.)
Label控件是没有办法实现多种颜色的文字的,只能用RichTextBox来实现,而且你的自定义格式字符串也没有结尾的,这样很不好,至少也要red红色字/redyellow黄色字/yellow,而且实现也很麻烦的,下面的代码我没有检测正确性,有错误的自己改一改吧
Dim colortag() as string
dim colors() as color
const txt as string="red红色字/redyellow黄色字/yellow"
private sub Form_Load(object sender,eventargs e)handles mybase.load
colortag(0)="red":Colortag(1)="yellow"
colors(0)=color.red:colors(1)=color.yellow
richtextbox1.text=txt
for i as integer=0 to colortag.lenght-1
dim tag as string="" colortag(i) ""
dim endtag as string="/" colortag(i) ""
dim find as integer=1
do
find=instr(find,txt,tag)+tag.lenght
if(find0)then
dim find1 as integer=instr(find,txt,endtag)
richtextbox1.SelectionStart=find
richtextbox1.selectionlenght=find1-find
richtextbox1.selectioncolor=colors(i)
find=find1
else
exit do
end if
loop
next
end sub
从tag这个名字就可以看出,这是一个标签属性,或者说是附注、标注、说明,一般情况下是没什么作用的,但是可以用它来保存一些临时性的数据,这样可以不用另外定义临时变量。你说的例子就是这样,是把obj这个对象的大小和位置临时保存在tag属性里,在后面的语句里就可以随时调用了。
一般用选项卡控件,都是将各个选项卡的内容,放到一个容器对象中,比如框控件/图片框控件,然后再通过控制容器对象的Visible属性来显示相应的内容
所以,你可以将标签框放到一个框架中,这样就解决了,而且以后也省事的多
见下面代码,放置定时器,按钮,标签各一个
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick '定时器
If Label1.Right Me.Width Then
Label1.Left += 10'移动距离
Else
Label1.Left = 0
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '开启或者关闭定时器
Timer1.Interval = 1000 '1秒
If Timer1.Enabled = False Then
Timer1.Start() '开定时器
Else
Timer1.Stop() '关定时器
End If
End Sub
End Class