| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1377 人关注过本帖
标题:如何在运行状态用form2的command打开form1的代码窗口呢?
只看楼主 加入收藏
左鹏
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2017-6-15
收藏
 问题点数:0 回复次数:0 
如何在运行状态用form2的command打开form1的代码窗口呢?
一开始打算用记事本记录代码,但是在文本框输出会乱码,而且显得麻烦了,如果能用COMMAND直接打开form1的代码窗口显得更简单.
但是我只知道工程状态下进入代码编辑区域,运行状态就不懂了。
我想到的代码在这里:
Private Sub Command3_Click()
    If Form2.third(0).Checked = True Then
    Text1.Visible = True
    With CommonDialog1
    .FileName = "31"
        .InitDir = App.Path
        .Filter = "文本文件|*.txt"
        .ShowOpen
    End With
    Open CommonDialog1.FileName For Input As #1
       Dim str As String
    Do While Not EOF(1)
        Input #1, str
        Text1.Text = Text1.Text & vbNewLine & str
    Loop
    Close #1
    End If
End Sub
'third(i)是菜单控件组

[此贴子已经被作者于2017-6-15 17:10编辑过]

搜索更多相关主题的帖子: 如何 文本框 记事本 文本文件 command 
2017-06-15 17:08
快速回复:如何在运行状态用form2的command打开form1的代码窗口呢?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.029747 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved