📄 18687.html

📁 VB技巧问答10000例,是一个教程

💻 HTML

字号:

<html>  <head>    <title>有请各位高手。请问有关 COMMONDIALOG.FLAGS 的用法，我的正确吗？(内详 PLEASE)</title>  </head>  <body bgcolor="#FFFFFF" vlink="#808080">    <center>      <h1>有请各位高手。请问有关 COMMONDIALOG.FLAGS 的用法，我的正确吗？(内详 PLEASE)</h1>    </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by 露脚 on September 09, 1999 at 00:28:31:<p>各位好！小弟有一个问题想请教大家！如果想得知由showopen 的对话盒所传回<br>的 flags 值要如何做呢？<br>下面的程式执行时一直传回 &H400 的值，但是我所选的档案是文字档也就是*.TXT 但是照MSDN中所述 &H400 是判断传回的档案副档名与属性 .DEFAULTEXT 指定的是否相同如果不同才会升起 &H400，那为何我的程式一直 FLAGS=&H400呢？ 那本书有提到相关详细资料呢？<br>Private Sub Command1_Click()<br>     With commondialog<br>          .DialogTitle = "你要开档吗？"<br>          .DefaultExt = ".txt"<br>          .Filter = "文字档|*.txt|RTF档|*.rtf|no|" <br>          .FilterIndex = 0       <br>          .MaxFileSize = 1000<br>          .FileName = ""       <br>          .ShowOpen<br>     flg_1 = Hex(.Flags)      ' 用 hex( ) 先转成 十六进制<br>     Debug.Print flg_1  ' "&H" & flg_1<br>      If flg_1 = "400" Then<br>           MsgBox "开启错误", 48, "shit "<br>           flg_1 = ""<br>           MsgBox flg_1, 48<br>           Exit Sub<br>      End If<br>     End With<br>End Sub<br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 18687--><!--top: 18692--><li><a href="18692.html">多了一&quot;点&quot;</a> <b>simon</b> <i>09:01:11 9/09/99</i>(<!--responses: 18692-->0)<ul><!--insert: 18692--></ul><!--end: 18692--></ul><!--end: 18687--><br><hr size=7 width=75%><p></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -