CommonDialog的问题

2002-07-08 06:13:56 70 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

【HarmonyOS】鸿蒙应用开发中使用CommonDialog时调用setSwipeToDismiss()右滑关闭dialog功能为什么无法正常关闭？使用CommonDialog的setSwipeToDismiss(true)方法设置Dialog向右侧滑关闭的功能阅读详情

怎样在保存不同格式的文件时调用不同的代码
如
在用户选择*.bmp时，执行savepicture
在用户选择*.gif时，执行 call savegif

...全文

使用LaTex写IEEE trans 论文的参考文献(bib) （1）在.TeX文件的最下方添加这几行内容，主要为生成tran形式的参考文献，第二行为参考文献名称，我命名为reference.bib，所以写的是reference，要根据自己的命名改写。（5）如果要在文中引用的话，就在.tex文件中添加\cite{},中括号里面内容为方框圈出来部分，但引用之后，在参考文献后面会出现[1]这样的标识，不知道为什么。（4）完成（3）以后，点击工具-命令-LaTeX,编译，然后按照此步骤LaTeX-bibtex-LaTeX-LaTeX,就可以完成参考文献的导入。阅读详情

laisiwei

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

zyl910 2002-07-08

打赏
举报

FilterIndex 属性

返回或设置“打开”或“另存为”对话框中一个缺省的过滤器。

语法

object.FilterIndex [= number]

FilterIndex 属性语法有下列部分：

部分描述
object 对象表达式，其值是“应用于”列表中的对象。
number 是指定缺省过滤器的数值表达式。

说明

当使用 Filter 属性为“打开”或“另存为”对话框指定过滤器时，该属性指定缺省的过滤器。

对于所定义的第一个过滤器其索引是 1。

数据类型

Integer

footballboy 2002-07-08

打赏
举报

Private Sub Command1_Click()
CommonDialog1.Filter = "BMP文件|*.bmp|GIF文件|*.gif"
CommonDialog1.ShowSave
Select Case CommonDialog1.FilterIndex
Case 1 'BMP
SavePicture Picture1.Picture, CommonDialog1.FileName
Case 2 'GIF
Call savegif
End Select
End Sub

Azi03 2002-07-08

打赏
举报

大哥，我的扩展名只有两个字符呢？？？
Select Case ucase(right(CommonDialog1.FileName,len(CommonDialog1.FileName)-InStrRev(CommonDialog1.FileName,"."))
Case "BMP"
SavePicture Picture1.Picture, CommonDialog1.FileName
Case "GIF"
Call savegif
End Select

thinkeasy 2002-07-08

打赏
举报

Select Case ucase(right(CommonDialog1.FileName,3),3)
Case "BMP"
SavePicture Picture1.Picture, CommonDialog1.FileName

Case "GIF"

Call savegif

End Select

zsx108 2002-07-08

打赏
举报

Temp = (CommonDialog1.FileName) ''文件名
If Len(Temp) > 3 Then Temp=Trim(UCase(Mid(Temp,Len(Temp)-3,3)))
Select Case Temp
Case "BMP"
SavePicture Picture1.Picture, "c:\temp\pic.bmp"

Case "GIF"

Call savegif

End Select

laisiwei 2002-07-08

打赏
举报

我想知道的是CommonDialog，而不是Combo1

footballboy 2002-07-08

打赏
举报

Private Sub Command1_Click()
Select Case Combo1.Text
Case "*.bmp"
SavePicture Picture1.Picture, "c:\temp\pic.bmp"
Case "*.gif"
Call savegif
End Select
End Sub

Private Sub savegif()
MsgBox "savegif"
End Sub

CommonDialog的问题

相关推荐