vb運行后能顯示結果但是不能復制 怎么把它顯示到文本框或者直接保存txt呀
結果是這樣的 不能復制
代碼如下
Dim Big As Integer
Dim Group()
Dim Cir()
Dim ZuHe() As String
Dim Sml As String
Private Sub Command1_Click()
Dim Ci As Integer
Dim S
Group = Array("a", "韓版", "T恤", "純棉", "圓領")
Big = 4
Sml = 3
Cir = Array(0, 1, 2, 3)
Call Make
For Each S In ZuHe
Form1.Print S
Next
End Sub
Private Sub Make()
Dim Count As Integer
Dim S As String
Count = -1
Do While Cir(1) <= ((Big - Sml) + 1)
S = ""
For Ci = 1 To Sml
S = S & Group(Cir(Ci)) & " "
Next
Count = Count + 1
ReDim Preserve ZuHe(Count)
ZuHe(Count) = S
If Chang(Sml) <= 0 Then Exit Do
Loop
End Sub
Private Function Chang(ByVal Chi As Integer) As Integer
If Cir(Chi) < Big - Sml + Chi Then
Cir(Chi) = Cir(Chi) + 1
Chang = Cir(Chi) + 1
Else
If Chi > 1 Then
Cir(Chi) = Chang(Chi - 1)
Chang = Cir(Chi) + 1
Else
Chang = 0 - Sml
End If
End If
End Function
uj5u.com熱心網友回復：
要想復制，把這些內容，輸出到文本框才行。Print到視窗上，它的性質就是“圖片”，
你想想，圖片中的文字內容，你能直接選定、復制嗎？
uj5u.com熱心網友回復：
dim sText as stringsText=""
For Each S In ZuHe
stext=stext & s & vbCrLf
Next
text1.text=stext
視窗上添加文本框Text1，
在屬性視窗中把它的Mup***Line(名字記不清楚，反正屬性視窗中一看就知道是哪個)設定為True。
這個屬性只能在視窗設計時設定的。
uj5u.com熱心網友回復：
這是列印在界面上的，沒法選中和復制的。換文本框。
uj5u.com熱心網友回復：
先拖一個ListBox控制元件到Form1中再將
Form1.Print
替換為
List1.AddItem s
uj5u.com熱心網友回復：
再將Form1.Print S
替換為
List1.AddItem S
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/93853.html
標籤：VB基礎類
上一篇：VBS腳本
下一篇：VB亂數的問題，求解