偶没有写过VB,现在要给mm写一个程序,主要功能并不复杂。
就是从文本读点内容到程序里,程序里面修改后,存回文本。
由程序调用一个现成的.exe。
由程序生成一个Excel文件,用windows的Excel打开。
我该怎么办呀,需要从头学习VB吗?
就是从文本读点内容到程序里,程序里面修改后,存回文本。
由程序调用一个现成的.exe。
由程序生成一个Excel文件,用windows的Excel打开。
我该怎么办呀,需要从头学习VB吗?
解决方案 »
- 请教VBA高手:我的EXECL中的BUTTON在提交CVS之前可以使用,提交CVS之后就不管用了。。。。。。。在线等待。。
- 关于dsoframer的版本问题
- 复制文件后重命名的问题!
- 帮帮忙吧,折磨我一周的一元线性回归实验,晕了
- 发短信的疑问,能获得电信返回来的发送报告吗?在线.....
- VSFlexgrid怎么用呀??
- 关于菜单使用的一个简单问题,在线等。
- 在VB中怎样编写代码调用SQL中的数据库?
- dll调问题???VB调用VC++的DLL需要返回值时,DLL如何定义?VB调用函数如何定义???
- 我现在正在写一个数据库应用的程序。用ADODC控件。。。。
- 可不可以通过调用方法来退出事件?
- 急啊!我的VB突然不能添加做报表的那些东西了。
挣同样多的钱。vb需要付出的太多了。而且也。
楼下的兄弟给流点面子。
我也是这么想的,用java的话,还得给人家装虚拟机,太麻烦啦。
Private Sub munopen_Click()
Dim filestr As String, filen As String
Dim tempstr As String, dotpos As Integer
Dim saveit As Integer
If modified = True Then
saveit = MsgBox("文件" & Me.Caption & "的正文已更改," & "是否保存更改?", vbYesNoCancel)
If saveit = 2 Then Exit Sub
If saveit = 6 Then
If fpath_name <> "" Then CommonDialog1.FileName = fpath_name
CommonDialog1.Filter = "text files(*.text)|*.txt|" & "all files(*.*)|*.*"
frmmain.CommonDialog1.Flags = &H4
frmmain.CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
Open frmmain.CommonDialog1.FileName For Output As #1
Print #1, Me.Text1.Text
Close #1
End If
End If
End IfCommonDialog1.Filter = "text files(*.text)|*.txt|" & "all files(*.*)|*.*"
CommonDialog1.Flags = &H4
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
fpath_name = CommonDialog1.FileName
Open CommonDialog1.FileName For Input As #1
filestr = ""
Do Until EOF(1)
Line Input #1, tempstr
filestr = filestr & tempstr
Loop
Close #1
Me.Caption = CommonDialog1.FileTitle
Text1.Text = filestr
opencanceled:
End Sub
这是一个打开文本的程序,然后你修改后用如下的方法保存:
Private Sub munsave_Click()
CommonDialog1.Filter = "text files(*.text)|*.txt|" & "all files(*.*)|*.*"
CommonDialog1.Flags = &H4
CommonDialog1.ShowSave
If fpath_name <> "" Then CommonDialog1.FileName = fpath_name
If CommonDialog1.FileName = "" Then Exit Sub
Open frmmain.CommonDialog1.FileName For Output As #1
Print #1, Me.Text1.Text
Close #1
fpath_name = CommonDialog1.FileName
modified = False
Me.Caption = CommonDialog1.FileTitle
End Sub
要做数据库嘛,就得学SQL
刚学的话:
第一,给VB装上MSDN
第二,去超星图书馆
第三,常来CSDN
第四,多上BBS技术区
第五,要有恒心哟……
******************************************
<vb6.0高级编程>
<vb6数据库访问技术>