精华内容
下载资源
问答
  • VB弹出对话框

    千次阅读 2008-09-01 09:09:00
    整理了下MsgBox的一些基本用法,以备不时之需! 基本语法: MsgBox(prompt[, buttons] [, title] [, ...字符串表达式,作为显示在对话框中的消息。prompt 的最大长度大约为 1024 个字符,由所用字符的宽度决定。...

          整理了下MsgBox的一些基本用法,以备不时之需!

    基本语法:
    MsgBox(prompt[, buttons] [, title] [, helpfile, context])
    参数说明:
    MsgBox 函数的语法具有以下几个命名参数:
    Prompt-------必需的。字符串表达式,作为显示在对话框中的消息。prompt 的最大长度大约为 1024 个字符,由所用字符的宽度决定。如果 prompt 的内容超过一行,则可以在每一行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或是回车与换行符的组合 (Chr(13) & Chr(10)) 将各行分隔开来。
    Buttons-------可选的。数值表达式是值的总和,指定显示按钮的数目及形式,使用的图标样式,缺省按钮是什么以及消息框的强制回应等。如果省略,则 buttons 的缺省值为 0。
    Title-------可选的。在对话框标题栏中显示的字符串表达式。如果省略 title,则将应用程序名放在标题栏中。
    Helpfile--------可选的。字符串表达式,识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了helpfile,则也必须提供 context。
    Context-------可选的。数值表达式,由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了context,则也必须提供 helpfile。
    用于MsgBox函数中Buttons参数的常量
    vbOKOnly                    0          只显示“确定”按钮(缺省值)
    VbOKCancel                1          显示“确定”和“取消”按钮
    VbAbortRetryIgnore     2          显示“终止”、“重试”和“忽略” 按钮
    VbYesNoCancel           3          显示“是”、“否”和“取消”按钮
    VbYesNo                      4          显示“是”和“否”按钮
    VbRetryCancel             5          显示“重试”和“取消”按钮
    VbCritical                    16          显示“关键信息”图标
    VbQuestion                 32          显示“警告询问”图标
    VbExclamation            48          显示“警告消息”图标
    VbInformation             64          显示“通知消息”图标
    vbDefaultButton1          0          第一个按钮是缺省值(缺省设置)
    vbDefaultButton2      256          第二个按钮是缺省值
    vbDefaultButton3      512          第三个按钮是缺省值
    vbDefaultButton4      768          第四个按钮是缺省值
    vbApplicationModal       0         应用程序强制返回;应用程序一直被挂起,直到用户对消息框作出响应才继续工作
    vbSystemModal        4096     系统强制返回;全部应用程序都被挂起,直到用户对消息框作出响应才继续工作
    vbMsgBoxHelpButt  16384       将Help按钮添加到消息框
    on
    VbMsgBoxSetFore  65536       指定消息框窗口作为前景窗口
    ground
    vbMsgBoxRight      524288      文本为右对齐
    vbMsgBoxRtlRe   1048576      指定文本应为在希伯来和阿拉伯语系统中的从右到左显示

    ading
    说明:
    (1)第一组值(0–5)描述了消息框中显示的按钮的类型与数目;第二组值(16,32,48,64)描述了图标的样式;第三组值(0,256,512,768)说明哪一个按钮是缺省值;而第四组值(0,4096)则决定消息框的强制返回性。将这些数字相加以生成Buttons参数值的时候,只能由每组值取用一个数字。
    (2)这些常数都是 Visual Basic for Applications (VBA) 指定的。结果,可以在程序代码中到处使用这些常数名称,而不必使用实际数值。实际数值与常数名称是等价的。
    返回值
    用于MsgBox函数返回值的常量
    常数值 说明
    vbOK             1        确定
    vbCancel       2        取消
    vbAbort         3         终止
    vbRetry         4         重试
    vbIgnore        5        忽略
    vbYes            6        是
    vbNo             7         否

     

       如果只需要显示一条提示消息就用:MsgBox “Hello!”

     

       将消息框返回的结果赋值给变量,或者要判断点击提示框的哪一个按钮,可以用:
       Ans=MsgBox(“Continue?”,vbYesNo)
       If MsgBox(“Continue?”,vbYesNo)<>vbYes Then Exit Sub

     

       使用常量的组合,赋值组Config变量,并设置第二个按钮为缺省按钮
       Config=vbYesNo+vbQuestion+vbDefaultButton2

     

       若要在消息中强制换行,可在文本中使用vbCrLf(或vbNewLine)常量,用&(或+)加空格与字符隔开。如:
       MsgBox “This is the first line.” & vbNewLine & “Second line.”

    展开全文
  • 在本机有vb安装的电脑执行没问题,但是将程序编译后拷贝到另外的电脑,没有安装VB的电话则执行到 Set oDLG = CreateObject("MSComDlg.CommonDialog") 的时候报以下错误: [img=...
  • VB 弹出文件夹对话框

    2009-02-07 02:40:13
    VB 弹出文件夹对话框 VB 弹出文件夹对话框
  • 什么是模态对话框、非模态对话框?模态对话框:用户想要对对话框以外的应用程序...模态对话框:获取用户注意,当删除某内容的时候需要进行二次确认,此时需要弹出模态对话框,确保用户看到并且做出反馈非模态对话...

    7023bc0d5a9853b59b2f12eaee78e526.png

    什么是模态对话框、非模态对话框?

    模态对话框:用户想要对对话框以外的应用程序进行操作时,必须首先对该对话框进行相应,如单击【确定】、【取消】、【关闭】按钮等将该对话框关闭;

    非模态对话框:对话框打开的时候,用户依然可以操作其他窗口

    什么时候需要使用模态对话框?什么时候使用非模态对话框?

    模态对话框:获取用户注意,当删除某内容的时候需要进行二次确认,此时需要弹出模态对话框,确保用户看到并且做出反馈

    非模态对话框:不是必须操作对话框上的内容,对话框上的内容对接下来的操作没有影响


    有些用户可能会想,对话框上的关闭和取消都是将对话框关闭的操作,为什么要保留两个按钮?不会重复吗?

    我认为:不重复

    因为关闭和取消操作针对的对象是不同的:取消是针对对话框的内容,比如当前对话框内容是修改信息,取消意味着用户取消了修改信息的操作;而关闭操作,意味着用户没有修改信息也没有取消修改信息,用户没有对弹窗执行操作,只是关闭了窗口。

    这两个操作在用户的体验上是不同的。

    展开全文
  • 就是一个思路演示,发帖的人需要一个msgbox能置顶,那我就想办法曲线救国,先抓图,对整个屏幕抓图,然后创建窗体,设置背景为当前图,然后弹出对话框。就这么简单。
  • Vb2010 弹出对话框来选择文件夹路径

    千次阅读 2012-12-31 11:12:19
    众所周知,在vb中如果是打开某一个文件的话,非常简单,使用CommonDialog组件即可轻松完成,但是他只能选择文件,之后或许选取的文件路径,而如果想要浏览文件夹,就没这么方便了。 这里介绍3个办法来实现文件夹...
    众所周知,在vb中如果是打开某一个文件的话,非常简单,使用CommonDialog组件即可轻松完成,但是他只能选择文件,之后或许选取的文件路径,而如果想要浏览文件夹,就没这么方便了。

    这里介绍3个办法来实现文件夹浏览。

    第一个非常简单,利用Shell对象
    程序代码 程序代码
    '引用Microsoft Shell Controls And Automation
    Dim ShellA As New Shell
    Private Sub Command1_Click()    '建立一个按钮对象                                                     
    Dim Shellb As Folder
    Set Shellb = ShellA.BrowseForFolder(0, "选择文件夹", 0)
    ShellA.Open b
    End Sub


    记得一定要引用Microsoft Shell Controls And Automation

    第二种方法,我们同样利用shell对象,但是加几个函数
    程序代码 程序代码
    '引用Microsoft Shell Controls And Automation
    Private shlShell As Shell32.Shell
    Private shlFolder As Shell32.Folder
    Private Const BIF_RETURNONLYFSDIRS = &H1
    Private Sub Command1_Click() '
        If shlShell Is Nothing Then
           Set shlShell = New Shell32.Shell
        End If
        Set shlFolder = shlShell.BrowseForFolder(Me.hWnd, "请选择文件夹", BIF_RETURNONLYFSDIRS)
        If Not shlFolder Is Nothing Then
           MsgBox shlFolder.Items.Item.Path  '测试
        End If
    End Sub


    上面2个方法的结果如图:
    点击放大图片

    第三个方法,是利用API来操作。
    程序代码 程序代码
    Private Const BIF_RETURNONLYFSDIRS = 1
    Private Const BIF_DONTGOBELOWDOMAIN = 2
    Private Const MAX_PATH = 260

    Private Declare Function SHBrowseForFolder Lib "Shell32" (lpbi As BrowseInfo) As Long
    Private Declare Function SHGetPathFromIDList Lib "Shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
    Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
    Private Type BrowseInfo
         hWndOwner As Long
         pIDLRoot As Long
         pszDisplayName As Long
         lpszTitle As Long
         ulFlags    As Long
         lpfnCallback     As Long
         lParam     As Long
         iImage     As Long
    End Type
    Private Sub Command1_Click()
         Dim lpIDList As Long
         Dim sBuffer As String
         Dim szTitle As String
         Dim tBrowseInfo As BrowseInfo
         szTitle = App.Path
         With tBrowseInfo
              .hWndOwner = Me.hWnd
              .lpszTitle = lstrcat(szTitle, "")
              .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
         End With

         lpIDList = SHBrowseForFolder(tBrowseInfo)
         If (lpIDList) Then
              sBuffer = Space(MAX_PATH)
              SHGetPathFromIDList lpIDList, sBuffer
              sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
              MsgBox sBuffer
         End If
    End Sub


    如果希望对话框中有“新建文件夹”,那么就给.ulFlags 加上BIF_USENEWUI属性,BIF_RETURNONLYFSDIRS 的意思是仅仅返回文件夹。
    效果如图:
    点击放大图片

    同时我也打包2个完整的利用此API的代码,有意者请自己学习了。


    第4个方法。
    其实是第三个方法的改进,就是打开对话框后,自动定位到当前文件夹位置 。

    程序代码 程序代码
    'Objects:   Form1、Command1、Module1   
      'Form1:   
      Option   Explicit   
      Private   Const   BIF_RETURNONLYFSDIRS   =   1   
      Private   Const   BIF_DONTGOBELOWDOMAIN   =   2   
      Private   Const   MAX_PATH   =   260   
      Private   Declare   Function   SHBrowseForFolder   Lib   "shell32"   (lpbi   As   BrowseInfo)   As   Long   
      Private   Declare   Function   SHGetPathFromIDList   Lib   "shell32"   (ByVal   pidList   As   Long,   ByVal   lpBuffer   As   String)   As   Long   
      Private   Declare   Function   lstrcat   Lib   "kernel32"   Alias   "lstrcatA"   (ByVal   lpString1   As   String,   ByVal   lpString2   As   String)   As   Long   
      Private   Declare   Function   LocalAlloc   Lib   "kernel32"   (ByVal   uFlags   As   Long,   ByVal   uBytes   As   Long)   As   Long   
      Private   Declare   Sub   CopyMemory   Lib   "kernel32"   Alias   "RtlMoveMemory"   (pDest   As   Any,   pSource   As   Any,   ByVal   dwLength   As   Long)   
      Private   Const   LPTR   =   (&H0   or   &H40)   
      Private   Type   BrowseInfo   
                      hWndOwner             As   Long   
                      pIDLRoot             As   Long   
                      pszDisplayName   As   Long   
                      lpszTitle             As   Long   
                      ulFlags                 As   Long   
                      lpfnCallback     As   Long   
                      lParam                 As   Long   
                      iImage                 As   Long   
      End   Type   
      Private   Function   MyAddressOf(AddressOfX   As   Long)   As   Long   
      MyAddressOf   =   AddressOfX   
      End   Function   
        
      Private   Sub   Command1_Click()   
      Dim   lpIDList   As   Long   
      Dim   sBuffer   As   String   
      Dim   szTitle   As   String   
      Dim   tBrowseInfo   As   BrowseInfo   
      Dim   Ret   As   Long   
      szTitle   =   "This   is   the   title"   
      Dim   sPath   As   String   
      sPath   =   VBA.InputBox("初始路径:",   ,   "C:\program   files")   
      With   tBrowseInfo   
              .hWndOwner   =   Me.hWnd   
              .lpszTitle   =   lstrcat(szTitle,   "")   
              .ulFlags   =   BIF_RETURNONLYFSDIRS   +   BIF_DONTGOBELOWDOMAIN   
              .lpfnCallback   =   MyAddressOf(AddressOf   BrowseForFolders_CallbackProc)   
              Ret   =   LocalAlloc(LPTR,   VBA.Len(sPath)   +   1)   
              CopyMemory   ByVal   Ret,   ByVal   sPath,   VBA.Len(sPath)   +   1   
              .lParam   =   Ret   
      End   With   
      lpIDList   =   SHBrowseForFolder(tBrowseInfo)   
      If   (lpIDList)   Then   
          sBuffer   =   VBA.Space(MAX_PATH)   
          SHGetPathFromIDList   lpIDList,   sBuffer   
          sBuffer   =   VBA.Left(sBuffer,   VBA.InStr(sBuffer,   vbNullChar)   -   1)   
          MsgBox   sBuffer   
          End   If   
      End   Sub   
        
      'Module1:   
      Option   Explicit   
      Private   Declare   Function   SendMessage   Lib   "user32"   Alias   "SendMessageA"   (ByVal   hWnd   As   Long,   ByVal   wMsg   As   Long,   ByVal   wParam   As   Long,   lParam   As   Any)   As   Long   
      Private   Const   WM_USER   =   &H400   
      Private   Const   BFFM_SETSelectIONA   As   Long   =   (WM_USER   +   102)   
      Private   Const   BFFM_SETSelectIONW   As   Long   =   (WM_USER   +   103)   
      Private   Const   BFFM_INITIALIZED   As   Long   =   1   
      Public   Function   BrowseForFolders_CallbackProc(ByVal   hWnd   As   Long,   ByVal   uMsg   As   Long,   ByVal   lParam   As   Long,   ByVal   lpData   As   Long)   As   Long   
      If   uMsg   =   BFFM_INITIALIZED   Then   
          SendMessage   hWnd,   BFFM_SETSelectIONA,   True,   ByVal   lpData   
      End   If   
      End   Function


    效果如图:

    点击放大图片 

    看了这个代码后,你会发现它确实定位到了当前文件夹,但是他有一个问题就是,没有选定当前文件夹。咱们继续看方法5.

    第5个方法。
    他同样是第3个方法的加强版,不过这个方法应当是最为完美的方法,不仅定位到当前文件夹,而且选定它。
    建立一个模块文件

    程序代码 程序代码
    'form1
    ''Module1:   
    Option Explicit
    Private Const BIF_STATUSTEXT = &H4&
    Private Const BIF_RETURNONLYFSDIRS = 1
    Private Const BIF_DONTGOBELOWDOMAIN = 2
    Private Const MAX_PATH = 260

    Private Const WM_USER = &H400
    Private Const BFFM_INITIALIZED = 1
    Private Const BFFM_SELCHANGED = 2
    Private Const BFFM_SETSTATUSTEXT = (WM_USER + 100)
    Private Const BFFM_SETSelectION = (WM_USER + 102)

    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
    Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
    Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
    Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long

    Private Type BrowseInfo
      hWndOwner      As Long
      pIDLRoot       As Long
      pszDisplayName As Long
      lpszTitle      As Long
      ulFlags        As Long
      lpfnCallback   As Long
      lParam         As Long
      iImage         As Long
    End Type

    Private m_CurrentDirectory As String   'The current directory
    Public Function BrowseForFolder(owner As Form, Title As String, StartDir As String) As String
      Dim lpIDList As Long
      Dim szTitle As String
      Dim sBuffer As String
      Dim tBrowseInfo As BrowseInfo
      m_CurrentDirectory = StartDir & vbNullChar

      szTitle = Title
      With tBrowseInfo
        .hWndOwner = owner.hWnd
        .lpszTitle = lstrcat(szTitle, "")
        .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN + BIF_STATUSTEXT
        .lpfnCallback = GetAddressofFunction(AddressOf BrowseCallbackProc)  'get address of function.
      End With

      lpIDList = SHBrowseForFolder(tBrowseInfo)
      If (lpIDList) Then
        sBuffer = Space(MAX_PATH)
        SHGetPathFromIDList lpIDList, sBuffer
        sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
        BrowseForFolder = sBuffer
      Else
        BrowseForFolder = ""
      End If
      
    End Function

    Private Function BrowseCallbackProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal lp As Long, ByVal pData As Long) As Long
        Dim lpIDList As Long
      Dim ret As Long
      Dim sBuffer As String  
      On Error Resume Next       
      Select Case uMsg  
        Case BFFM_INITIALIZED
          Call SendMessage(hWnd, BFFM_SETSelectION, 1, m_CurrentDirectory)      
        Case BFFM_SELCHANGED
          sBuffer = Space(MAX_PATH)
          
          ret = SHGetPathFromIDList(lp, sBuffer)
          If ret = 1 Then
            Call SendMessage(hWnd, BFFM_SETSTATUSTEXT, 0, sBuffer)
          End If      
      End Select  
      BrowseCallbackProc = 0  
    End Function
    Private Function GetAddressofFunction(add As Long) As Long
      GetAddressofFunction = add
    End Function


    建立一个窗口和一个按钮
    程序代码 程序代码
    Option Explicit
    Private getdir As String
    Private Sub Command1_Click()    
        getdir = BrowseForFolder(Me, "Select A Directory", Text1.Text)
        If Len(getdir) = 0 Then Exit Sub     Text1.Text = getdir    
    End Sub
    Private Sub Form_Load()
      Text1.Text = CurDir
    End Sub

    最终结果如图:
    点击放大图片

    上面是对vb中调用文件夹对话框的一个总结,个人认为第5个方法是最为完美的,这也是从国外坛子淘到的
    展开全文
  • 相信有很多用户都清楚电脑中的物理地址就是网卡物理地址,现在有很多地方网络连接都是ip绑定电脑... 修改物理地址方法: 1、点击右侧的网络连接,在弹出对话框中点击“打开网络和共享中心”。如图所示: 2、在网...

    相信有很多用户都清楚电脑中的物理地址就是网卡物理地址,现在有很多地方网络连接都是ip绑定电脑物理地址,最近有位用户反映,自己换了电脑就不能上网了,用户不知道怎么修改物理地址,为此非常苦恼,那么windows电脑如何修改物理地址呢?今天为大家分享windows电脑修改物理地址的操作步骤。

    修改物理地址方法:

    1、点击右侧的网络连接,在弹出的对话框中点击“打开网络和共享中心”。如图所示:

    fa5b6d549c0704790317a9b7161fcd3a.png

      
    2、在网络和共享中心界面中点击“更改适配器设置”。如图所示:

    bb9bbb604a7e88910187d123a6530600.png

      
    3、进入网络连接界面,右键“本地连接”。如图所示:

    e062b6d2f027b8e404d90520e01f5d12.png

      
    4、在弹出的菜单中选择“属性”。如图所示:

    25d24d5bce7b30bbdd54a6eebc62ae22.png

      
    5、在本地连接属性界面中点击“配置”按钮。如图所示:

    9d5fafec2ba55635167d0e37605c09f8.png

      
    6、切换到“高级”选项卡,在属性列表中找到并点击“网络地址”,在右侧输入修改后的网络地址,点击确定按钮。如图所示:

    d109c68a89e612b5daefb83071303676.png

      
    7、使用命令提示符,输入Ipconfig -all,可以查看修改后的物理地址。如图所示:

    86799be32c2fac46c31cfe2bdff8e417.png

      
    windows系统修改物理地址的操作步骤就为小伙伴们分享到这里了,如果用户们使用电脑的时候遇到了相同的情况,可以根据上述方法步骤进行操作哦,希望本篇教程能够帮到大家。

    展开全文
  • vb+SQL\源码实例下载\10多种样式的Vb弹出提示对话框【荐】.rar
  • VB对话框的显示按钮的问题:msgbox(“请选择一个按钮”,322,“按钮实验”)其中数字322就是表示按钮类型和显示在对话框中的图形,下面总结如下: 1、按钮的类型与对应值: 显示"确定"按钮,对应值:0 显示"确定"和...
  •  '阻止弹出对话框  Set doc = WebBrowser1.Document  doc.parentWindow.execScript "function alert(){return;}"  doc.parentWindow.execScript "function confirm(){return;}"  doc.parentWindow....
  • 鼠标左键单击选中素材文件【批量修改批注.rar】,然后按下键盘上的【F2】键,对文件进行重命名,将Microsoft Excel 工作表的文件扩展名【rar】更改为【xlsx】,鼠标左键单击任意空白位置后,弹出【重命名】对话框,...
  • 摘要:.NET源码,Ajax相关,弹出框,对话框 弹出对话框优化修正版,功能说明:  1:动画方式弹出,就像MSN的提示框  2:漂亮,详细见配图  3:还可以再在开一个更加详细的内容网页  4:自动关闭,无需手工确认那个ok...
  • asp.net弹出对话框

    2008-03-12 12:12:37
    弹出对话框,C#和VB.net的
  • VB操控注册表为Windows添加开机警告,也算是登录提示吧,当Windows启动后为首先弹出提示,欢迎用户的到来,在提示信息里可以设置警告语、提示语等信息,这项功能在Windows注册表里可以修改,本程序将直接代替手动...
  • 弹出对话框CTL本人精心收集的VB源码,绝对实用
  • Vb恶搞程序,逗您玩,关不完的消息框(弹出窗口),其实是能关掉的,只要你一直点下去,而且到最后还可以看到传说中的比尔盖茨,哈哈。程序是个小恶搞程序,对你的系统不会造成任何伤害,只是玩玩的,源代码开源。
  • 1.在form 初始化时将webbrowser控件的ScriptErrorsSuppressed = True(false调试模式,允许脚本错误提示),也可以在其他合适的事件... ' 忽略错误并禁止弹出对话框 e.Handled = True End Sub 3.在webbrowser控
  • 方法很简单,就是引用 System.Windows.Forms. 然后在代码页面头部 Imports System.Windows.Forms ... 或者直接使用 System.Windows.Forms.Messagebox.show() 之后就能使用Messagebox对话框了。
  • 第四步,而有的时候,不仅对照片的像素大小有要求,对照片的大小还有要求,我们在证照之星的工具栏当中找到【照片保存】功能,此时软件就会弹出【文件保存】的对话框了,在此对话框当中,我们找到【文件大小上限】...
  • XYZ var oPopup = window.createPopup(); var popTop=50; function popmsg(msgstr) { var winstr=""; winstr+=""; 
  • vb6 webbrowser 禁示弹出对话框

    千次阅读 2008-05-08 10:32:00
    Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) Dim oDoc1 As HTMLDocument Set oDoc1 = pDisp.Document oDoc1.parentWindow.execScript "function alert()...
  • ASP.NET弹出对话框

    千次阅读 2008-09-01 09:40:00
    今天有空整理一下关于弹出对话框的一些处理。之前写VB程序时,我们可以很方便地来一句 MsgBox,但是在asp.net程序中想要实现这个却不是那么地容易了。写asp.net程序也快一年了,发现程序中经常要向用户弹出一些信息...
  • 3.在VB中可以建立 菜单和 菜单...为了把通用对话框控件加到工具箱中应在工程菜单中选择部件命令弹出部件对话框在部件对话框的控件选项卡中选择 2.建立打开文件保存文件颜色字体和打印对话框所使用的方法分别为 Showopen
  • Function:To Generate the report. Private Sub GenerateReport() Dim oXL As Excel.Application Dim oWB As Excel.Workbook Dim oSheet As Excel.Workshe
  • 动画方式弹出,就像MSN的提示框; 自动关闭,无需手工确认那个ok; 示例包括C#和VB两个版本 用起来简单(具体使用方法见代码),使用前请先在你的项目中添加EeekSoft.Web.PopupWin.dll(在bin文件夹中),然后再编译...
  • 1:动画方式弹出,就像MSN的提示框 2:漂亮,详细见配图 3:还可以再在开一个更加详细的内容网页 4:自动关闭,无需手工确认那个ok 5:示例包括C#和VB两个版本,popUp的源文件在EeekSoft.Web.PopupWin文件夹中 6:用...
  • 1:动画方式弹出,就像MSN的提示框 2:漂亮,详细见配图 3:还可以再在开一个更加详细的内容网页 4:自动关闭,无需手工确认那个ok 5:示例包括C#和VB两个版本,popUp的源文件在Source文件夹中 6:用起来简单...
  • 就很烦网易启动器还要请求管理员权限于是就很想跳过启动器直接进入,果断找到主程序,打开试试嗯,能启动,但是......在BAT里,启动参数可以用%1表示,VB里则是command表示。现在为了记录下这一串启动参数...
  • 1.关闭VB。 2.右击VB图标,打开属性 3.点击兼容性,设置为以管理员身份运行。再打开vbp工程,不会提示出错啦
  • VB.net MessageBox弹出的确认对话框点击vb.net教程确定按钮 Dim dr As DialogResult = MessageBox.Show(“XX”, “提示”,MessageBoxButtons.OKCancel,MessageBoxIcon.Question) If dr = DialogResult.OK Then xxxx ...

空空如也

空空如也

1 2 3 4 5 ... 19
收藏数 367
精华内容 146
关键字:

vb弹出对话框