1、拖放：该对象在richtextbox中将显示为一个文件名加图标的形式，BMP图象也不例外，只不过它的图标是一个其本身的缩略图；2、richtextbox1.OLEOBJECTS.ADD方式:richtextbox1.OLEOBJECTS.ADD ,,"文件名"或richtextbox1.OLEOBJECTS.ADD ,,,"对象类型"如果该文件创立者或类允许现场在OLE母...
with richtextbox1 .selstart
sFind = InputBox("请输入要查找的字、词:", "查找内容", sFind) RichTextBox1.Find sFind End Sub ’继续查找 Private Sub mnuFindOn_Click() RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1 RichTextBox1.Find sFind, , Len(RichTextBox1) End Sub ’使用...
line input#1,tmp if n=0 then text1.text=tmp if n=1 then text2.text=tmp if n=2 then text3.text=tmp n=n+1 loop close#1 这些代码完全能满足你的要求,知识不知道是不是最优化的
1.想要把选中的文本的颜色变为红色，代码是：RichTextBox1.SelColor = vbRed 变成绿色就是：RichTextBox1.SelColor = vbGreen 变成其他颜色就是：RichTextBox1.SelColor = 你想要的颜色 2.想要把你选中的文本的字号变成36号，代码就是：RichTextBox1.SelFontSize=36 变成48号：RichTextBox1....
StatusBar1.Panels(1).Text = "目前状态:正在打开文件" amp; "《" amp;CommonDialog1.FileTitle amp; "》" 例二:让第三个窗格显示时间并让时间跟随系统时钟变化。 首先,给程序加一个Timer控件,将其Interval属性设为1000。然后: 在Form_Load过程加入:StatusBar1.Panels(1).Text = Time;然后给Timer控件编写...
先添加commondialog控件到窗体，改名称CDL1，加按钮Cmd1，文本框TexT1..Private Sub Cmd1_Click()Dim yy$, FF&(10)Text1 = ""CDL1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"CDL1.FileName = ""CDL1.ShowOpen On Error Resume Next If CDL1.FileName = "" Then Exit...
保存在数据库 或者其他文件里了 这样下次运行 自动加载 就可以了 你把电话号码放在数组了 比如a（n）for u= 0 to n b=b & a(u)& crlf next u open app.path & "\系统文件\信息.dll"for append as 1 '文档地址随意 print 1,b close 1 这样 你就把 所有数组 保存到 上面那个文件里了...
肯定是错了，正确写法应该是：Me.Caption = "超级记事本：" & amp & FileName 其中amp是一个变量，在代码的其他位置要赋值，否则为空值。FileName是通过对话框获取的文件名。
数据文件,在应用程序中使用 .. .datVCD中的图象声音文件,VCD播放软件可调用,或是通过VCD机播放 .. .dbf数据库文件,Foxbase,Dbase,Visual FoxPro,等数据库处理系统所产生的数据库文件 .. .dcx传真浏览文档文件 .. .ddi映象文件,DUP,HD,IMG等工具可展开 .. .dev设备驱动程序 .. .dib设备无关位图文件,这是...