vb加载skn或she文件？

答案:2 悬赏:50 手机版

解决时间 2021-04-15 02:10

提问者网友：记得曾经
2021-04-14 04:51

程序有一个command，点击弹出“打开”，只允许加载skn和she，选定一个文件后把主题应用到form1上

最佳答案

五星知识达人网友：上分大魔王
2021-04-14 06:16

Private Sub Command1_Click()
  CommonDialog1.DialogTitle = "请选择打开文件" '打开框时是(请选择打开文件),保存框时是(输入保存文件)
  CommonDialog1.Filter = "*.txt 文本文件|*.txt;*.exe|*.exe 应用程序"
  CommonDialog1.FileName = ""
  CommonDialog1.ShowOpen '打开框
  'CommonDialog1.ShowSave '保存框
  If CommonDialog1.FileName = "" Then Exit Sub '没有选中文件或你按了取消(这时……)
  If Len(CommonDialog1.FileName) Then
    '这里就是得到的文件名了
    '
  End If
End Sub

'下面应该是你想要的代码吧
Private Sub Command1_Click()
  CommonDialog1.DialogTitle = "请选择打开文件" '打开框时是(请选择打开文件),保存框时是(输入保存文件)
  CommonDialog1.Filter = "*.skn skn类文件|*.skn;*.she|*.she she类文件"
  CommonDialog1.FileName = ""
  CommonDialog1.ShowOpen '打开框
  'CommonDialog1.ShowSave '保存框
  If CommonDialog1.FileName = "" Then Exit Sub '没有选中文件或你按了取消(这时……)
  If Len(CommonDialog1.FileName) Then
    '这里就是得到的文件名了
    '
  End If
End Sub