vb修改txt背景
史厚田5160VB修改txt内容并触发新事件 -
权思园19792664777 ______ 这个是源代码 Dim Str Public Function ReadFile(ByVal FileName As String) As String Dim objStream As Object Set objStream = CreateObject(＂ADODB.Stream＂) With objStream .Type = 2 .Mode = 3 .Open .Charset = ＂UTF-8＂ .LoadFromFile ...
史厚田5160VB 如何修改远程TXT文件? -
权思园19792664777 ______ 要做到这一点,你必须在目标服务器上有相应的接收程序,比如asp、php等,然后你把text1里面的内容通过http协议传送到网站上的这个程序,再通过这个程序存盘为a.txt.或者如果你有这个服务器的ftp权限的话,你也可以先把text1的内容保存为本地文件,再通过ftp协议把这个文件传送到服务器中.总之,如果网站服务器不是你自个的,而你却巴望着通过某个本地软件就能修改网站上的某个文件的话,那你还是趁早打消这个念头,否则全世界的黑客都要饿死了,因为人人都是黑客了
史厚田5160VB中的text控件数组,如何让焦点text控件变背景颜色? 在鼠标点击某一个数组内的text控件时改变其背景色 -
权思园19792664777 ______ Private Sub Text1_GotFocus(Index As Integer) Text1(Index).BackColor = vbRed End Sub Private Sub Text1_LostFocus(Index As Integer) Text1(Index).BackColor = &H80000005 End Sub Private Sub Text1_KeyUp(Index As Integer, KeyCode As ...
史厚田5160VB怎么设置背景色? -
权思园19792664777 ______ VB的右中间有个属性 你点属性里面就可以设置背景了
史厚田5160vb修改txt指定字符 -
权思园19792664777 ______ dim s() as string,ss() as string open ＂d:\123.txt＂ for binary as #1 s=split(input(lof(1),#1),vbcrlf) close #1 ss=split(s(6),＂:＂) 's(6)是第7行 ss(4)=text2.text '第4个冒号和第5个冒号间的内容替换为text2的内容 s(6)=join(ss,＂:＂) kill ＂d:\123.txt＂ open ＂d:\123.txt＂ for binary as #1 put #1,,join(s,vbcrlf) close #1
史厚田5160vb里 RichTextBox怎么设置选中文字的背景颜色 -
权思园19792664777 ______ Private Sub RichTextBox1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) RichTextBox1.SelColor = vbRed End Sub
史厚田5160求助用VB编写修改文本框文字颜色和背景的代码 -
权思园19792664777 ______ private sub changecol() Text1.ForeColor = RGB(255, 0, 0)'文字颜色 '你想要什么颜色就设置什么 Text1.BackColor=RGB(255, 0, 0)'背景 end sub
史厚田5160VB读取TXT,并将TXT指定字符串替换 -
权思园19792664777 ______ 要修改的文件D:\123.txt,修改后的文件保存为D:\abc.txt Private Sub Command1_Click() Dim FileNumber1, FileNumber2, Str As String FileNumber1 = FreeFile '得到一个未使用的文件号. Open ＂D:\123.txt＂ For Input As #FileNumber1 '打开要读...
史厚田5160用VB实现更改文件属性?
权思园19792664777 ______ Call SetAttr(＂文件路径＂, 一堆属性) 这个属性是可以用+的 你想设置多个就在选择了一个属性后, 按一下空格,输入一个+ 然后再按空格,就可以继续选择了
史厚田5160vb编程替换txt文本内容 -
权思园19792664777 ______ wenbenlujing=＂c:\1.txt＂ dim a() as byte open wenbenlujing for binary as #1 redim a(lof(1)-1) get #1,,a close #1 b=strconv(a,vbunicode) b=replace(b,＂aaa＂,＂bbb＂) open wenbenlujing for output as #1 print #1,b close #1