timer标签滚动怎么设置 怎样用vb.net做记事本？
怎样用做记事本？
步骤一：草图界面。
新建一个标准EXE工程，将其Caption属性转成“灰常记事本”，再点Icon属性给它找个比较好的Icon图标。左键单击菜单“工程”-“部件”，在弹出的“部件”对话框里不能找到Microsoft RichText Box6.0和公共考试对话框Microsoft Common Dialog6.0并全选它们，右击“确定”按钮。这时左边的工具栏上直接出现了我们刚刚新添的两个控件了。在窗体上绘制的RichTextBox和CommnDialog，其中RichTextBox的大小和位置可你不理睬，我们将在代码中如何处理它，肯定，有必要把它的ScrollBar属性设为2-rtfVertical，那样的话在然后打开和编辑文件时垂直滚动条才用下。
步骤二：编辑菜单。
按CtrlE打开系统菜单编辑器，我们来做万分感谢几个菜单：
一.文件菜单：
文件（第一层）mnuFile
新建（第二层）mnuNew
打开（第二层）mnuOpen
保存（第二层）mnuSave
-（第二层）mnuFileSep(分隔线）
逃离（第二层）mnuExit
二.编辑菜单：
编辑时（第一层）mnuEdit
图片文件夹（第二层）mnuCopy
拷贝（第二层）mnuCut
粘帖（第二层）mnuPaste
-（第二层）mnuEditSep（分隔线）
ctrl a全选（第二层）mnuSelecAll
三.搜索菜单：
搜索（第一层）mnuSearch
查看（第二层）mnuFind
里查下一个（第二层）mnuFindOn
四.指导菜单：
帮（第一层）mnuHelp
使用说明（第二层）mnuUsage
麻烦问下（第二层）mnuAbout
(注：各菜单项的快捷键请无法设置里)
再说，其它的菜单项以后再据要添加。现在进入：
步骤三：编写代码。
声明直接输入变量
DimsFindsuchString
声明文件类型
DimFileType,FiTypeasString
重新初始化程序
Private Sub Form_Load()
可以设置程序起动时的大小
Me.Height6000
Me.Width9000
EndSub
可以设置编辑框的位置和大小
PrivateSubForm_Resize()
OnErrorResumeNext出现错误全面处理
RichTextBox1.Left20
RichTextBox1.Height ScaleHeight-40
RichTextBox1.WidthScaleWidth-40
EndSub
刚建文件
Private Sub mnuNew_Click()
RichTextBox1.Text
VB中Scroll的使用方法？
PrivateSubForm_Load()100设置中Timer1想执行的时间间隔为100msEndSubPrivateSubForm_Resize()滚动条位置随窗体变化而波动VScroll1.Left-0VScroll1.Height SubPrivate Sub Timer1_Timer()利用Timer控件来视频监视窗体状态If2Thenwindowstate属性你可以去看下窗体的属性窗口FalseElseIf0TrueEndIfEndSub
版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。
