公共对话框是一种类型，不能用作表达式。
公共对话框是一种类型，不能用作表达式。
提问于 2015-10-19 02:54:21
这是我在.NET的第一次真正的尝试，如果这是一个愚蠢的问题，请提前道歉。我正在将VB6升级到.NET (使用VS 2008)。
我得到错误“Common对话框是一种类型，不能用作表达式”。
有人能帮我吗？如果可能的话，你能提供一个完整的答案，因为我很容易混淆！
干杯!
守则是：
Private Sub cmdBrowse_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdBrowse.Click
'UPGRADE_WARNING: CommonDialog variable was not upgraded Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="671167DC-EA81-475D-B690-7A40C7BF4A23"'
With CommonDialog
.InitialDirectory = My.Application.Info.DirectoryPath
'UPGRADE_WARNING: Filter has a new behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'
.Filter = "Text (*.txt)|*.txt|All Files (*.*)|*.*"
.FilterIndex = 1
'UPGRADE_WARNING: FileOpenConstants constant FileOpenConstants.cdlOFNHideReadOnly was upgraded to OpenFileDialog.ShowReadOnly which has a new behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="DFCDE711-9694-47D7-9C50-45A99CD8E91E"'
'UPGRADE_WARNING: MSComDlg.CommonDialog property CommonDialog.Flags was upgraded to CommonDialogOpen.CheckFileExists which has a new behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="DFCDE711-9694-47D7-9C50-45A99CD8E91E"'
.CheckFileExists = True
.CheckPathExists = True
'UPGRADE_WARNING: MSComDlg.CommonDialog property CommonDialog.Flags was upgraded to CommonDialogOpen.ShowReadOnly which has a new behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="DFCDE711-9694-47D7-9C50-45A99CD8E91E"'
'UPGRADE_WARNING: FileOpenConstants constant FileOpenConstants.cdlOFNHideReadOnly was upgraded to OpenFileDialog.ShowReadOnly which has a new behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="DFCDE711-9694-47D7-9C50-45A99CD8E91E"'
.ShowReadOnly = False
.FileName = txtEnterValue.Text
.ShowDialog()
txtEnterValue.Text = .FileName
End With
RefreshFileDetails()
End Sub回答 1
Stack Overflow用户
回答已采纳
发布于 2015-10-19 04:36:42
使用OpenFileDialog代替：
Private Sub cmdBrowse_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdBrowse.Click
Using ofd As New OpenFileDialog
ofd.InitialDirectory = My.Application.Info.DirectoryPath
ofd.Filter = "Text (*.txt)|*.txt|All Files (*.*)|*.*"
ofd.CheckFileExists = True
ofd.ShowReadOnly = True
ofd.FileName = txtEnterValue.Text
If ofd.ShowDialog = DialogResult.OK Then
txtEnterValue.Text = ofd.FileName
RefreshFileDetails()
End If
End Using
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/33205911
复制相关文章
相似问题
腾讯云开发者
