vb6.0文本框中的字体随机变色怎么编程-中国学网-中国IT综合门户网站
> vb6.0文本框中的字体随机变色怎么编程
vb6.0文本框中的字体随机变色怎么编程
转载 编辑：李强
为了帮助网友解决“vb6.0文本框中的字体随机变色怎么编程”相关的问题，中国学网通过互联网对“vb6.0文本框中的字体随机变色怎么编程”相关的解决方案进行了整理,用户详细问题包括:RT,我想知道:vb6.0文本框中的字体随机变色怎么编程，具体解决方案如下：解决方案1： 我咋知道 补充： 去 解决方案2： Text1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) 追问： 谢谢~ 回答： 采纳，谢谢！ 解决方案3： Text1.ForeColor &= &RGB (Rnd &* &255, Rnd &* &255, Rnd &* &255)通过对数据库的索引,我们还为您准备了：问：运行时可以通过“色彩”复选框设置文本框的背景和文字颜色；通过“粗体”复...答：Private Sub Check1_Click() If Check1.Value = 1 Then Text1.BackColor = vbYellow Text1.ForeColor = vbRed Else Text1.BackColor = vbWhite Text1.ForeColor = vbBlack End If End SubPrivate Sub Check2_Click() Text1.FontBold = Not Text1...===========================================问：运行时可以通过“色彩”复选框设置文本框的背景和文字颜色；通过“粗体”复...答：Text1.Font.Name = "黑体" '黑体字 Text1.Font.Size = 12 '字号12===========================================问：运行时可以通过“色彩”复选框设置文本框的背景和文字颜色；通过“粗体”复...答：当然可以，工具-选项-编辑器格式 希望采纳！！===========================================问：就是想要在文本框中显示一段文字，其中有一部分字的颜色不同答：可以实现，但是效率非常低，不可取 个人觉得你这个问题可能要先界定一下你的需求，看你的需求是要在逐字键入资料到TextBox中时同时改变颜色呢，还是要在TextBox中输出你取得的资料并改变字串中的颜色，如果是前者的话建议你可以改用RichTextBox...===========================================问：尽量要用到：SELTEXT,COMMONDIALOG,FORCOLOR。有其他方法也可以。答：把“text” 属性中的forecolor 进行设置即可。 如text1.forecolor=vbred 设置为红色字体 仅此一项就够了，其他两项可以作为辅助来设置。===========================================问：Private Sub Check4_Click()If Check4.Value = 1 ThenText1.ForeColor =...答：你把&H0&写成&Ho&了（是数字0不是字母o） vb 中可用vbblack vbred vbgreen vbyellow vbblue 等表示颜色 黑色用&H0&或vbblack都 行 16进制的最低两位表示红，中间两位绿，最高两位兰 &H0000FF& 红 &H00ff00& 绿 &HFF0000& 兰===========================================问：VB编程，在窗体上创建一文本框，通过选择，我们可以改变文本框的字体以...答：Private Sub Option1_Click(Index As Integer) ''字体、字色、背景都用控件数组 Text1.FontName = Option1(Index).Caption '字体 End Sub Private Sub Option2_Click(Index As Integer) If Option2(Index).Caption = "红色" Then '背景色 Text1....===========================================问：编文本框的时候总是在一行里到头，有许多文字出不来啊，怎么办呢？ 各位...答：把文本框的MultiLine属性设为True就可以换行了。 如果你想用代码在文本框中显示多行文字，可以把字符串和vbCrLf连起来。比如Text1.Text = "abc" & vbCrLf & "123"，这样abc和123就会显示成2行了。===========================================问：比如我想让用户在文本框中输入一个颜色，然后点击一个按钮,使用这条语句...答：工具-&选项-&编辑器格式-&字体，大小===========================================如果想要改变所有文本的颜色,可以手动选中所有文本,再执行这上面的代码,或者用以下的代码代替。 Dim i As Long i = RichTextBox1.SelStart RichTextBox1.SelStart = 0 R...=========================================== 用listview 吧,那个item 是有backcolor 和 forecolor 属性的 用listbox 自己搞,估计的吐血=========================================== Private Sub Form_Load() Timer1.Interval = 100 Timer1.Enabled = False End Sub Private Sub Command1_Click() Timer1.Enabled = Not Timer1.Enabled End Sub P...=========================================== 相关代码:Private Sub Combo1_Click() Select Case Combo1.Text &&& Case "一号" &&& Text1.FontSize = 16.5 &&& Ca...=========================================== 留下e-mail===========================================华而不实的东西,用textbox有点难,你就用richtextbox吧rtftext.selstart=mrtftext.sellength=1rtftext.SelColor =vbred你的代码中print是输出到屏幕要红的话,只要ForeColor = vbRed===========================================字体和字号可以用控件数组,配色的三个滚动条也可以是控件数组。以下代码中的控件名... 文本框Frame1&&&&&&&& '字体&&n...===========================================在窗体上画一timer控件和一文本框,然后写以下代码: Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Rand...=========================================== Option Explicit Private Sub Form_Load() Timer1.Interval = 100 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Dim RndNum As Long RndNum = Int((8...=========================================== e As System.EventArgs) Handles MenuItemFont.Click If FontDialog1.ShowDialog = DialogResult.OK Then RichTextBox1.SelectionFont = FontDialog1.Font E...===========================================
本文欢迎转载，转载请注明：转载自中国学网： []
用户还关注
可能有帮助用vb6.0中实现简单的功能，高手请帮忙……100分_百度知道
用vb6.0中实现简单的功能，高手请帮忙……100分
textbox下面出现列表框将所有的第一个子为“大”的记录按先后顺序列出。当第二次再输入“大”或“大学生”时.txt核心是自动匹配：窗体上放置一个textbox 和 一个listbox 外加一个文本文件myfile，自动将他保存，因为myfile.txt没有相同的记录，当textbox中输入的字段和myfile，用vb6，一模一样。……………………………………………………………………………………所要实现是功能和百度搜索框的功能一模一样.txt中的不一样时，可以把我上面说的当做参考，例如.txt中的记录按照字母顺序排列.0做出和百度搜索框一模一样的功能即可，自动保存必须用vb 6：在text中第一次输入“大学生”因为myfile。一定一样.txt中存在“大学生”。要求将myfile.0来实现下面所描述的功能
提问者采纳
KeyWord)L = UBound(TempB)If L &lt.txt&list中有类似的记录, 1) &*&quot, #FreeNum).ListIndex = List1.Visible = TrueStr = KeyWord & & Then AppPlace = AppPlace + &quot.Text = List1; Then Exit SubAppPlace = A & 0 Then List1, TipsData() As String) As Boolean '下If List1.Text)End SubPrivate Sub Text1_LostFocus()List1.ListIndex &lt.Visible = TrueIf IsInput = True ThenIsInput = FalseElseText1;&quot, 1) &lt, AppPlace As String, L As Long.ListIndex &gt, Shift As Integer)IsInput = FalseIf KeyCode = 40 Then &#39, TempA) = False Then Exit SubIf UBound(TempA) &lt.SelStart = Len(Text1, N As IntegerFreeNum = FreeFileIf Text1, TempB() As String, KeyWord As StringDim L As LText1;&quot, Str As StringFreeNum = FreeFileDim TempA() As String，内容放入tipsdata中Dim FreeNum As IntegerIf Dir(FilePlace) = &quot，若为所要的按enter建选择&#39,结果是否成功.txt&quot, TempB() As S读文件.TextClose #FreeNumEnd IfEnd SubPrivate Sub Form_Load()IsInput = FalseList1;记住关键字一样的位置End IfNextIf List1: KeyAscii = 0 'End IfEnd SubPrivate Sub Text1_KeyDown(KeyCode As I&quot, Sign As I; 0 ThenExit SubEnd IfList1, AppPlace As S&quot.ClearText1;If GetTips(AppPlace + &quot, TempA) = False Then Exit SubSign = 0For N = 0 To UBound(TempA)If TempA(N) = Text1;&\&上If List1: ReDim TipsData(-1 To -1).ListIndex = K &#39, Text1;&#92, K As IntegerIf IsInput = True ThenList1; &&If GetTips(AppPlace + & Then Exit SubAppPlace = App.ListCount & Then GetTips = F Then AppPlace = AppPlace + &&gt.Text.PathIf Right(AppPlace.Text = List1, KeyWord As StringDim N As Long.ListCount - 1 ThenList1.Text &#39.ListIndex - 1End IfElseIsInput = TrueEnd IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Text1.Visible = FalseEnd SubPrivate Sub List1_Click()List1: Exit FunctionIf FileLen(FilePlace) = 0 Then GetTips = True.Text = &quot.PathIf Right(AppPlace, vbUnicode).Text ThenSign = 1Exit ForEnd IfNextIf Sign = 0 ThenOpen AppPlace + &quot.AddItem TempB(N)If TempB(N) = KeyWord Then K = N '\& For Append As #FreeNumPrint #FreeN单击list若他中间有你需要的记录.Text = &quot.Text = & 0 ThenList1.ListIndex + 1End IfElseIf KeyCode = 38 Then ' 0 ThenExit SubEnd IfKeyWord = Text1.ListIndex = List1; List1;myfile，直接单击选择End IfEnd SubPrivate Function GetTips(ByVal FilePlace As String.txt&quot, Chr(13) + Chr(10))Close #FreeNumGetTips = TrueEnd FunctionPrivate Sub Text1_Change()Dim FreeNum As Integer。Option ExplicitDim IsInput As BooleanPrivate Sub Command1_Click()Dim FreeNum As IntegerDim TempA() As SK = 0For N = 0 To LIf TempB(N) Like Str ThenList1;List1.TextTempB = Filter(TempA谢谢您的支持: Exit FunctionFreeNum = FreeFileOpen FilePlace For Input As #FreeNumTipsData = Split(StrConv(InputB(LOF(FreeNum);&。 在您的那个基础上又修改了一下;&#92.ClearIf Text1
提问者评价
其他类似问题
为您推荐：
其他3条回答
‘模糊查询字段gxno Adodc4; & Text1(2).Recordset.Clear ’清空列表 Adodc4;) Adodc4,gxname from jj_gx where gxno Like'gxno&quot.Fields(&quot.MoveFirst Do While Adodc1.RecordSource = &quot.Text & &quot.AddItem Adodc4.Refresh List1看错题目了！用表存放查询过的数据然后Adodc4.R&quot.Recordset.EOF = False List1.R%&%&#39
要求将myfile.txt中的记录按照字母顺序排列。
这个要求现在我恐怕实现不了
其他的还是可以考虑的。
鉴于你的文件中可能有汉字，这个排序那是很费劲的，而且程序会大量占用内存，所以不建议这么做。
至于其他功能，我已经能够实现了。
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim str, L(10000) As String
Dim x(10000), y As Boolean
Dim xR As Integer
'&¨&O&xR&&A&½&I&A¼&&&A×&UÐÐ&E&
If KeyCode = vbKeyReturn And Text1.Text && && Then
Open App.Path & &\profile.txt& For Input As #1
For i = 1 To 10000
If Not EOF(1) = True Then
Input #1...
已经开始写...........尝试一下也好我认为文件中排序没必要 list1显示时排序就可以了
vb6的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁为什么VB6.0中，如何把一个目录下的所有文件的文件名显示到Textbox中？谢了？帮帮忙 - 程序设计 -
- Powered by Discuz!
为什么VB6.0中，如何把一个目录下的所有文件的文件名显示到Textbox中？谢了？帮帮忙
问题补充：非常感谢陈学阳的回答，但是还是不能解决我的问题，本人用windows media encoder SDK开发了一套视频采集的系统，能不能在采集的时候用H264编码？
相关主题：
利用线程，和计时器，Function GetFolderSize从网上借鉴的，不知道为什么IO类CheckForIllegalCrossThreadCalls = False SourceDir = TextBox1.Text DestDir
我这个代码，测试过的在表单里放一个textbox，就默认的“Text1”好啦在&D盘中已存在名为& & textbox &”的文件夹！“ End If
' 查找指定目录下的文件，并显示在TextBox中，
' 要一个TextBox控件，设置Multline属性=True
Private Sub Command1_Click()
Dim strPathTmp As String, strNameTmp As String
strPathTmp = &D:\&
strNameTmp = Dir(strPathTmp, vbDirectory)
Do While strNameTmp&&&&
If strNameTmp&&&.& And strNameTmp&&&..& Then
&&If GetAttr(strPathTmp & strNameTmp)&&vbDirectory Then
& &'在strPathTmp目录下找到文件strNameTmp
& &Text1.text = Text1.text & strNameTmp & Chr(13) + Chr(10)
strNameTmp = Dir
要控件text两个、按钮两个，
text2的MultiLine属性为真、Text2.ScrollBars = 2
文件包括子目录里的
假若不想包括
& && & If strTemp&&&.& And strTemp&&&..& Then
& && && && && & 'It's a normal dir: let's dive straight
& && && && && & 'into it...
& && && && && & Call FindFiles(strRootFolder & strTemp, strFolder, strFile, colFilesFound)
& && && && &End If
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
Const BIF_RETURNONLYFSDIRS = &H1
Private pidl As Long
Private Declare Function _
SHGetPathFromIDList _
Lib &shell32.dll& Alias _
&SHGetPathFromIDListA& _
(ByVal pidl As Long, ByVal _
pszPath As String) As Long
Private Declare Function _
SHBrowseForFolder Lib &shell32.dll& _
Alias &SHBrowseForFolderA& _
(lpBrowseInfo As BROWSEINFO) As Long
Private Const MAX_PATH = 260
Private Const INVALID_HANDLE_VALUE = -1
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Type FILETIME
& &dwLowDateTime As Long
& &dwHighDateTime As Long
Private Type WIN32_FIND_DATA
& &dwFileAttributes As Long
& &ftCreationTime As FILETIME
& &ftLastAccessTime As FILETIME
& &ftLastWriteTime As FILETIME
& &nFileSizeHigh As Long
& &nFileSizeLow As Long
& &dwReserved0 As Long
& &dwReserved1 As Long
& &cFileName As String * MAX_PATH
& &cAlternate As String * 14
Private Declare Function FindFirstFile Lib &kernel32& Alias &FindFirstFileA& (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib &kernel32& Alias &FindNextFileA& (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib &kernel32& (ByVal hFindFile As Long) As Long
Public Sub FindFiles(strRootFolder As String, strFolder As String, strFile As String, colFilesFound As Collection)
& & Dim lngSearchHandle As Long
& & Dim udtFindData As WIN32_FIND_DATA
& & Dim strTemp As String, lngRet As Long
& & 'Check that folder name ends with &\&
& & If Right$(strRootFolder, 1)&&&\& Then strRootFolder = strRootFolder & &\&
& & 'Find first file/folder in current folder
& & lngSearchHandle = FindFirstFile(strRootFolder & &*&, udtFindData)
& & 'Check that we received a valid handle
& & If lngSearchHandle = INVALID_HANDLE_VALUE Then Exit Sub
& & lngRet = 1
& & Do While lngRet&&0
& && &&&'Trim nulls from filename
& && &&&strTemp = TrimNulls(udtFindDataFileName)
& && &&&If (udtFindData.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY Then
& && && && &'It's a dir - make sure it isn't . or .. dirs
& && && && &
'删除下面的内容能不包括子目录
'--------------删除开始
& && && && &If strTemp&&&.& And strTemp&&&..& Then
& && && && && & 'It's a normal dir: let's dive straight
& && && && && & 'into it...
& && && && && & Call FindFiles(strRootFolder & strTemp, strFolder, strFile, colFilesFound)
& && && && &End If
'--------------删除结束
& && &&&Else
& && && && &'It's a file. First check if the current folder matches
& && && && &'the folder path in strFolder
& && && && &If (strRootFolder Like strFolder) Then
& && && && && & 'Folder matches, what about file?
& && && && && & If (strTemp Like strFile) Then
& && && && && && &&&'Found one!
& && && && && && &&&colFilesFound.Add strRootFolder & strTemp
& && && && && & End If
& && && && &End If
& && &&&End If
& && &&&'Get next file/folder
& && &&&lngRet = FindNextFile(lngSearchHandle, udtFindData)
& & 'Close find handle
& & Call FindClose(lngSearchHandle)
Public Function TrimNulls(strString As String) As String
& &Dim l As Long
& &l = InStr(1, strString, Chr(0))
& &If l = 1 Then
& && &TrimNulls = &&
& &ElseIf l & 0 Then
& && &TrimNulls = Left$(strString, l - 1)
& && &TrimNulls = strString
End Function
Private Sub Command2_Click()
& & Dim i As Long
& & Dim con As New Collection
& & Dim a() As String
& & 'List1.Visible = False
& & 'List1.Clear
& & DoEvents
& & FindFiles Text1.Text, &*&, &*.*&, con '查找excel文件
& & Text2.Text = &&
& & For i = 1 To con.Count
& && &&&t1 = con.Item(i)
& && &&&t2 = InStrRev(t1, &\&) + 1
& && &&&t3 = Mid(con.Item(i), t2)
& && &&&Text2.Text = Text2.Text & t3 & vbCrLf
& & Set con = Nothing
Private Sub Command1_Click()
Dim bi As BROWSEINFO
Dim r As Long
Dim pidl As Long
Dim path As String
Dim pos As Integer
bi.hOwner = Me.hWnd
'展开根目录
bi.pidlRoot = 0&
'列表框标题
bi.lpszTitle = &请选择路径：&
'规定只能选择文件夹，其他无效
bi.ulFlags = BIF_RETURNONLYFSDIRS
'调用API函数显示列表框
pidl = SHBrowseForFolder(bi)
'利用API函数获取返归的路径
path = Space$(512)
r = SHGetPathFromIDList(ByVal pidl&, ByVal path)
pos = InStr(path, Chr$(0))
Text1.Text = Left(path, pos - 1)
Else: Text1.Text = &&
Private Sub Form_Load()
&&Text1.Text = App.path
&&Command1.Caption = &浏览&
&&Command2.Caption = &整理&
'不要那么复杂的：
' 要一个TextBox控件，设置Multline属性=True,ScrollBars属性设置为3
Private Sub Command1_Click()
Dim MyFile As String, strFile As String
strFile = &C:\*.*&
MyFile = Dir(strFile, vbNormal)
Do While MyFile&&&&
& &If InStr(1, MyFile, StrZf) & 0 Then Text1 = Text1 & Chr(13) & Chr(10) & MyFile
& &MyFile = Dir
这个有点麻烦，能把文件名显示到filelistbox控件里，这比较简单的、、、、
可以用定时器Timer控件啊，设置循环时间间隔，比如300毫秒，定义一个字符串比如在text1文本框中输入“请输入”，并让这三个字一个一个显示在text2
老师要求用VB做一个文本编辑器，我不知道Microsoft RichText Box 6.0和'设置保存文件的默认扩展名 .InitDir = &d:\& '设置初始目录 .FileName
简单的说VB6.0是编程工具，不可能生成数据库好保持下次连接这个路径的时候，还能从这个生成的数据库文件中读取到上次记录的数据。你有Access就可以了。
[通过 QQ、MSN 分享给朋友]VB6.0中如何让下面这段代码的结果显示在text窗口_百度知道
VB6.0中如何让下面这段代码的结果显示在text窗口
01: TextBox5 = 2.4.1.Textw3 = ComboBox3Private Sub 计算_Click()w1 = ComboBox1: TextBox6 = 0.57.TextIf w1 = 3 And w2 &= 125 And w3 = A ThenTextBox1 = 12: TextBox3 = 4: TextBox2 = 0: TextBox4 = 6: TextBox7 = 5.Textw2 = ComboBox2
我有更好的答案
TextBox2 = 0;
& vbcrlfstr=str & &
& vbcrlfstr=str & &w3 = ComboBox3: TextBox3 = 4.5&w1 = ComboBox1;Private Sub 计算_Click()“ & vbcrlfstr=str & &quot.1;If w1 = 3 And w2 &lt: TextBox5 = 2: TextBox7 = 5;w3 = ComboBox3; & vbcrlfstr=str & &quot,把TextBox控件的MultiLine属性设置为True
可以分行显示dim str as stringstr=&w2 = ComboBox2;TextBox1 = 12: TextBox4 = 6: TextBox6 = 0.Text& & vbcrlf你的Textbox控件.57.01.Text&quot.Text& & vbcrlfstr=str & & & vbcrlfstr=str & &= 125 And w3 = A Then&quot.4用字符串连接起来就可以了.Text&quot
不好意思，问题没有说清楚，我上面贴的这段代码是后台的代码不是所有都显示只是想让条件语句判定后结果显示在相应的textbox下（而且我贴出的只是一条if判定，实际代码有几十条，这样有区别么），后续还需要用到这些数据来执行一些命令。怎么才能达到这样的目的呢？
将计算的数据显示在textbox控件上面是吗?
你这个应该没有问题吧
可是就是不显示，好纠结TAT
其他类似问题
为您推荐：
vb6的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁请教各位VB6高手两件事情，，感激不尽！ 1：请问如何将VB6的运算结果，显示在 textbox？_百度知道
请教各位VB6高手两件事情，，感激不尽！ 1：请问如何将VB6的运算结果，显示在 textbox？
2：另外如何实现让用户在textbox输入资料，系统能够根据用户在textbox输入的资料来计算结果？
请问如何将VB6的运算结果，显示在 textbox，系统能够根据用户在textbox输入的资料来计算结果？2：另外如何实现让用户在textbox输入资料1
提问者采纳
com/zhidao/pic/item/cdbf6c2cccba61e46bb.jpg" esrc="http.baidu.jpg" esrc="/zhidao/wh%3D600%2C800/sign=/zhidao/wh%3D600%2C800/sign=/zhidao/pic/item/e7bec56664abc2e2eba.hiphotos.baidu.hiphotos.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http://g.com/zhidao/wh%3D450%2C600/sign=fa5dad6dbba1cdc22e4ca/e7bec56664abc2e2eba在窗体上画出2个TEXTBOX和一个COMMAND按钮代码为这够清楚了吧.baidu.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http://c.hiphotos.hiphotos.hiphotos.baidu.baidu://c.baidu
提问者评价
谢谢您的帮助！帮我解开了疑惑，谢谢！
其他类似问题
为您推荐：
vb6的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}