VB里怎样做个对话框可以选择文本？
答案:2 悬赏:0 手机版
解决时间 2021-07-31 08:50
- 提问者网友：川水往事
- 2021-07-30 21:33
点击一个控钮，会自动弹出一个对话框，能选择TET格式文本进入一个窗体？最好给出代码，谢谢！
最佳答案
- 五星知识达人网友：拜訪者
- 2021-07-30 23:10
你说的不大清楚，看下是不是这样
Private Sub Command1_Click() '单击事件
Dim a As String
Dim str As String
Dim tem As String
Open "d:\1.txt" For Input As #1 '读取指定文本文件内容
Do
Line Input #1, tem
str = str & vbCrLf & tem
Loop Until EOF(1)
Close '关闭文件
x = str
a = InputBox("这里是弹出对话筐的标题", "这里是弹出对话筐的提示", x) 'x是在弹出的对话筐的输入筐显示指定的TXT文本的内容
End Sub
全部回答
- 1楼网友：洎扰庸人
- 2021-07-31 00:42
说的不是很清楚，请补充完整
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯