添加一个 Textbox控件和一个 timer控件,如图所示 ∠omwb[设计上 textphone, Designe, vbtextchange. vb[设计】 ttms Tert 一 Timer1 通过 Text Change Design.vb可看到代码中自动创建和初始化了tmsg和tmer1控件 在所有方法外面定义如下变量。 Dmx,y, As Integer设置控件的左上角坐标 Dim flag As Boolean=Tue'方向朝左
添加一个Textbox控件和一个timer控件，如图所示 通过TextChange.Design.vb可看到代码中自动创建和初始化了txtmsg和timer1控件。 在所有方法外面定义如下变量。 Dim x, y, As Integer ‘设置控件的左上角坐标 Dim flag As Boolean = True '方向朝左
实现Tmer1Tck事件 Private Sub Timer1_Tick(By Val sender As System object, By Val e As System. EventArgs) Handles Timer1 Tick fag= True Then'左移 X-=1 txtmsg Location New Point(X, If(Integer Parse(txtmsg Left)<=0)Then flag= False End if Else X+=1 txtmsg. Location =New Point(x, y) If(Integer Parse(txtmsg Left)+ Integer Parse(txtmsg Width)>= Integer Parse(Me Width))Then fag=True'左移 End If End if End Sub Timer1控件的 I Interval属性设为10,也就是Tmer1控件启动后,每隔0.01 秒会自动执行Tmer1Tck事件内的代码一次, ttms先左移,每次左移 1Pie,边检査是否碰到左边缘。若是,则将fag设为 false,改为右移, x同时检查是否碰到右边缘,若是,将1设为ue,再次左移 ange 步是
实现Timer1_Tick事件 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e _ As System.EventArgs) Handles Timer1.Tick If flag = True Then ' 左移 x -= 1 txtmsg.Location = New Point(x, y) If (Integer.Parse(txtmsg.Left) <= 0) Then flag = False End If Else x += 1 txtmsg.Location = New Point(x, y) If (Integer.Parse(txtmsg.Left) + Integer.Parse(txtmsg.Width) >= Integer.Parse(Me.Width)) Then flag = True '左移 End If End If End Sub Timer1控件的Interval属性设为10，也就是Timer1控件启动后，每隔0.01 秒会自动执行Timer1_Tick事件内的代码一次，txtmsg先左移，每次左移 1Pixel，边检查是否碰到左边缘。若是，则将flag设为false，改为右移， 同时检查是否碰到右边缘，若是，将flag设为true，再次左移。 至此，已经将TextChange控件设置完毕，下一步是生成.dll文件
右键单击 Text Change项目,选择“生成”命令,便会在项目的bin目录下生成 TextChange dI文件,如图所示 -Release 文件()编辑()查看y)收藏4)工具T帮助 中后退,+,③搜索文件夹③” 地址(D Release ◇转到 YAHOO! 搜索 TextChange. d] TextChang.. TextChang 3个对象 796KB回我的电脑
右键单击TextChange项目，选择“生成”命令，便会在项目的bin目录下生成 TextChange.dll文件，如图所示
接下来,在 VB. Net)应用程序中使用自创建的 TextChange控件: 执行【文件】|【添加】|【项目】命令,创建“ windows应用程序” 执行【工具】|【选择工具箱项】,选定 Frame Work选项卡,如图所示。 选择工具箱项 NET Framework组件cOM组件 名称 命名空间 目录 回 AccessData50Urce5 em Web UI, WebControl全局程序集缓存 口 ActionsPane Microsoft OFfice. Tools 全局程序集缓存 口 ADODC Microsoft, VisualBasic. Compatibe,全局程序集缓存 口 ADODCArr Microsoft VisualBasic. Compatibi.全局程序集缓存 口 Adomdcommand Microsoft Analysis Services, Ado,全局程序集缓存 口 Adomdconnection Microsoft Analysis Services. Ado…,全局程序集缓存 口 AdomdDataAdapter Microsoft. Analysis Services.Ado,,全局程序集缓存 区 AdRotator System. Web UI. Mobile Controls全局程序集缓存 MAdRotator System. Web UI. WebControls 全局程序集缓存 筛选器( 清除 AccessDataSource 语言 固定语言(固定国家/地区 浏览(B) 版本 2.0.0.0 确定 取消 重置(
接下来，在VB.Net应用程序中使用自创建的TextChange控件： 执行【文件】|【添加】|【项目】命令，创建“windows 应用程序”。 执行【工具】|【选择工具箱项】，选定FrameWork选项卡，如图所示
单击“浏览”按钮,选中刚才创建的 Text Change dl攻文件,单击“确定”按扭, 如图所示 打开 ?| 查找范围(D Release ③·由0x图·工具u 四Tech9gedl 桌面 我的项目 我的电脑 文件名(N): 打开( 文件类型(:同可执行文件(*exe) 取消
单击“浏览”按钮，选中刚才创建的TextChange.dll文件，单击“确定”按扭， 如图所示