我用VB做了一个记事本,在自己电脑可以打开和保存,但在别的电脑就不可以了,出现429错误。
PrivateSubOpen_Click()DimoDLGDimb()AsByte,SAsStringSetoDLG=CreateObject("MSComDlg.Com...
Private Sub Open_Click()
Dim oDLG
Dim b() As Byte, S As String
Set oDLG = CreateObject("MSComDlg.CommonDialog")
With oDLG
.DialogTitle = "打开文件"
.Filter = "文本文件|*.txt"
.MaxFileSize = 255
.ShowOpen
If .FileName <> "" Then
ReDim b(FileLen(.FileName))
Open .FileName For Binary As #1
Get #1, , b
Close #1
txtFile.Text = StrConv(b, vbUnicode)
End If
End With
End Sub
Private Sub Save_Click()
Dim oDLG
Dim b() As Byte, S As String
Set oDLG = CreateObject("MSComDlg.comDlg")
With oDLG
.DialogTitle = "保存文件"
.Filter = "文本文件|*.txt"
.MaxFileSize = 255
.ShowSave
If .FileName <> "" Then
Open .FileName For Output As #1
Print #1, txtFile.Text
Close #1
txtFile.Text = StrConv(b, vbUnicode)
End If
End With
Set oDLG = Nothing
End Sub 展开
Dim oDLG
Dim b() As Byte, S As String
Set oDLG = CreateObject("MSComDlg.CommonDialog")
With oDLG
.DialogTitle = "打开文件"
.Filter = "文本文件|*.txt"
.MaxFileSize = 255
.ShowOpen
If .FileName <> "" Then
ReDim b(FileLen(.FileName))
Open .FileName For Binary As #1
Get #1, , b
Close #1
txtFile.Text = StrConv(b, vbUnicode)
End If
End With
End Sub
Private Sub Save_Click()
Dim oDLG
Dim b() As Byte, S As String
Set oDLG = CreateObject("MSComDlg.comDlg")
With oDLG
.DialogTitle = "保存文件"
.Filter = "文本文件|*.txt"
.MaxFileSize = 255
.ShowSave
If .FileName <> "" Then
Open .FileName For Output As #1
Print #1, txtFile.Text
Close #1
txtFile.Text = StrConv(b, vbUnicode)
End If
End With
Set oDLG = Nothing
End Sub 展开
4个回答
展开全部
VB是一个移植性不好的程序.这是!它的一大缺点.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
微软已经放弃了VB了,取而代之的是VB.NET,所以WIN7不再支持VB,你可以改学VB.NET,他们的语言很相似的,所以你会VB,VB.NET就学起来很容易了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
注册comdlg32.ocx.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询