精华内容
下载资源
问答
  • VB6.0菜单编辑器怎么用?

    千次阅读 2018-07-30 17:37:57
    ★ 在VB6.0窗体界面下,右键打开菜单编辑器”。 ☀ “菜单编辑器”对话框 使用菜单编辑器可以为应用程序创建自定义菜单并定义其属性。 ☀ 对话框选项 ♡ “标题” 使用该选项可以输入菜单名或命令名。 如果...

    前言

    最近几天过得浑浑噩噩,不完成点任务感觉自己是在虚度时光,然后我就开始了“VB之旅”——菜单编辑器。

    详情

    ★ 在VB6.0窗体界面下,右键打开“菜单编辑器”。
    “菜单编辑器”对话框
    使用菜单编辑器可以为应用程序创建自定义菜单并定义其属性。
    对话框选项
    ♡ “标题”
    使用该选项可以输入菜单名或命令名。
    如果想要在菜单中建立分隔符条,则在“标题框”中键入一个连字符“-”。
    如果想通过快捷键访问菜单项,可在“标题框”中的内容前插入一个“&”符号,按Alt和字母就可访问菜单或命令。需注意,快捷键不能用于一级菜单,且“&”符号不在菜单中显示。
    如果要在菜单中显示“&”符号,则应在“标题框”中插入两个“&”符号。
    ♡ “名称”
    用来为菜单项输入控件名,控件名是标识符,仅用于访问代码中的菜单项,它不会出现在菜单中。
    ♡ “索引”
    可指定一个数字值来确定控件在控件数组中的位置。该位置与控件的屏幕位置无关。
    ♡ “快捷键”
    可在列表框中为每个命令选择快捷键。
    ♡ “帮助上下文 ID”
    允许为 context ID 指定唯一数值。在 HelpFile 属性指定的帮助文件中用该数值查找适当的帮助主题。
    ♡ “协调位置 ”
    该列表框中共有四个可选项, 他们决定是否及如何在容器窗体中显示菜单。
    ♡ “复选”
    允许在菜单项的左边设置复选标记。通常用它来指出切换选项的开关状态。
    ♡ “有效 ”
    由此选项可决定是否让菜单项对事件做出响应, 而如果希望该项失效并 以浅灰色显示出来,则也可取消对该复选框的选用。
    ♡ “可见”
    决定是否将菜单项显示在菜单上。
    ♡ “显示窗口列表 ”
    在 MDI 应用程序中,确定菜单控件是否包含一个打开的 MDI 子窗体列表。
    ♡ “右箭头 ”
    每次单击都把选定的菜单向右移一个等级。一共可以创建四个子菜单等级。
    ♡ “左箭头 ”
    每次单击都把选定的菜单向上移一个等级。一共可以创建四个子菜单等级。
    ♡ “上箭头 ”
    每次单击都把选定的菜单项在同级菜单内向上移动一个位置。
    ♡ “下箭头 ”
    每次单击都把选定的菜单项在同级菜单内向下移动一个位置。
    ♡ “菜单列表 ”
    该列表框显示菜单项的分级列表。 将子菜单项缩进以指出它们的分级位置或等级。
    ♡ “下一个 ”
    将选定项移动到下一行,往往是为建立下一个菜单项准备。
    ♡ “插入”
    在列表框的当前选定行上方插入一行。
    ♡ “删除”
    删除当前选定行。
    ♡ “确定”
    关闭菜单编辑器,并对选定的最后一个窗体进行修改。菜单可以在设计时使用,但在设计时可以通过选定一个菜单,来打开菜单单击事件的 “代码 ”窗口,而不是执行事件代码。
    ♡ “取消”
    关闭菜单编辑器,取消所有修改。

    后记

    我要淡定我要淡定我要淡定,重要的事情说三遍!

    展开全文
  • Vb自定义右键菜单,调用保存、打开对话框,在菜单编辑器中,创建一级菜单,菜单标题为PopupMenu 名称为b,创建三个二级菜单,标题为选项1,名称xuanxiang1,……在编辑菜单中,将“可见”对勾去掉。  MouseDown事件...
  • 估计很少有人使用VB了,今天翻了出来,使用方法用管理员权限regsvr32 codehelp.dll,如果没有自动加载,点击菜单add-ins,打开add-in manager,双击codehelp加载,支持win7
  • 内容索引:VB源码,界面编程,对话框,右键,菜单 Vb自定义右键菜单,调用保存、打开对话框,在菜单编辑器中,创建一级菜单,菜单标题为PopupMenu 名称为b,创建三个二级菜单,标题为选项1,名称xuanxiang1,……在编辑...
  • VB6.0 制作一个动态菜单,面向VB新手的范例,这种形式的菜单可能是大家见的比较多的了,点击菜单,动态显示出二级子菜单,与Windows窗口菜单大同小异。  为了更好的演示功能,这些菜单还定义了动作,比如弹出...
  • VB简单文本编辑器

    2011-12-30 10:35:19
    VB做一个记事本实在不很复杂,我们完全可以通过...通过阅读、研究本文并按本文所述进行尝试,初学者将学到很多东西,如怎样使用RichText控件来打开和保存文件,怎样制作菜单、工具栏和状态栏以及如何对其编写代码等。
  • VB讲课笔记10:菜单与对话框

    千次阅读 2018-03-14 06:46:11
    VB讲课笔记10:菜单与对话框一、用户界面设计基础用户界面是应用程序最基本的组成部分,其内容包括界面基本元素的外观设计和实现相应功能的代码编制。 1、用户界面元素(User Interface Element) 窗体是用户界面...

    VB讲课笔记10:菜单与对话框

    一、用户界面设计基础

    用户界面是应用程序最基本的组成部分,其内容包括界面基本元素的外观设计和实现相应功能的代码编制。

      1、用户界面元素(User Interface Element)

      窗体是用户界面元素的容器,新建的窗体并不包含菜单栏、工具栏和状态栏等元素。窗体及其控制栏、标题栏、菜单栏、工具栏、控件和状态栏是Windows用户界面的基本元素。

      2、对话框(Dialog Box)

      对话框是应用程序与用户交互的重要手段,对话框也是窗口。通常,它不具有最大化

    展开全文
  • vb编程语言不启动界面直接调用界面的菜单编辑器编写的菜单怎么实现?怎么在标准模块里就启动一个菜单弹出呢?
  • vb设计一个简易编辑器,能够进行文本操作(如复制、粘贴等)功能。 利用RichTextBox控件,编写一个类似Word字处理软件的应用程序。应用程序界面为单文档或多文档界面,包括菜单和工具栏。具体功能有:设置字体大小...
  • 在有状态SessionBean,用累加,以对话状态存储起来,创建EJB对象,并将当前的计数器初始化,调用每一个EJB对象的count()方法,保证Bean正常被激活和钝化,EJB对象是用完毕,从内存清除…… Java Socket 聊天...
  • vb中 打开文件夹浏览框的方法总结

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

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

    第一个非常简单,利用Shell对象
     程序代码
    '引用Microsoft Shell Controls And Automation
    Dim ShellA As New Shell
    Private Sub Command1_Click()    '建立一个按钮对象                                                    
    Dim Shellb As Shell32.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个方法的结果如图:
      vb中 打开文件夹浏览框的方法总结 - metrom -

    第三个方法,是利用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 的意思是仅仅返回文件夹。
    效果如图:
      vb中 打开文件夹浏览框的方法总结 - metrom -

    同时我也打包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



    效果如图:

      vb中 打开文件夹浏览框的方法总结 - metrom -

    看了这个代码后,你会发现它确实定位到了当前文件夹,但是他有一个问题就是,没有选定当前文件夹。咱们继续看方法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中 打开文件夹浏览框的方法总结 - metrom -

    上面是对vb中调用文件夹对话框的一个总结,个人认为第5个方法是最为完美的,这也是从国外坛子淘到的

    不得不说,国外对源码共享还是走在我们前面的。

    ====================

    VB选择文件夹(比较顺眼的)

    Public Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

    Public Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long

    Public Type BROWSEINFO
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlags As Long
    lpfn As Long
    lParam As Long
    iImage As Long
    End Type
    Public Type SHITEMID
    cb As Long
    abID As Byte
    End Type
    Public Type ITEMIDLIST
    mkid As SHITEMID
    End Type

    Function getFolder(frm As Form, Optional Flags As Long = 1) As String
    On Error Resume Next
    Dim BI As BROWSEINFO
    Dim IDL As ITEMIDLIST
    Dim r As Long
    Dim pidl As Long
    Dim tmpPath As String
    Dim pos As Integer

    BI.hOwner = frm.hwnd
    BI.pidlRoot = 0&
    BI.lpszTitle = "请选择路径:"
    'bi.ulFlags = BIF_RETURNONLYFSDIRS
    'BIF_DEFAULT = 0x0000,
    'BIF_BROWSEFORCOMPUTER = 0x1000,效果不明
    'BIF_BROWSEFORPRINTER = 0x2000,效果不明
    'BIF_BROWSEINCLUDEFILES = 0x4000,效果不明
    'BIF_BROWSEINCLUDEURLS = 0x0080,效果不明
    'BIF_DONTGOBELOWDOMAIN = 0x0002,;效果不明
    'BIF_EDITBOX = 0x0010,带文件夹名称编辑框
    'BIF_NEWDIALOGstyle = 0x0040,带新建文件夹
    'BIF_NONEWFOLDERBUTTON = 0x0200,没有菜单
    'BIF_RETURNFSANCESTORS = 0x0008,效果不明
    'BIF_RETURNONLYFSDIRS = 0x0001,;默认
    'BIF_SHAREABLE = 0x8000,效果不明
    'BIF_STATUSTEXT = 0x0004,;效果不明
    'BIF_UAHINT = 0x0100,效果不明
    'BIF_VALIDATE = 0x0020,效果不明
    'BIF_NOTRANSLATETARGETS = 0x0400,效果不明

    BI.ulFlags = Flags
    'get the folder
    pidl = SHBrowseForFolder(BI)

    tmpPath = Space$(512)
    r = SHGetPathFromIDList(ByVal pidl, ByVal tmpPath)
    getFolder = ""

    If r Then
    pos = InStr(tmpPath, Chr$(0))
    tmpPath = Trim(Left(tmpPath, pos - 1))
    If Right(tmpPath, 1) <> "\" Then tmpPath = tmpPath & "\"
    getFolder = Trim(tmpPath)
    End If
    End Function

    =======================

    [VB]用API打开浏览文件夹对话框,选择文件夹

    Option Explicit

    Private Type BROWSEINFO
      hOwner As Long
      pidlRoot As Long
      pszDisplayName As String
      lpszTitle As String
      ulFlags As Long
      lpfn As Long
      lParam As Long
      iImage As Long
    End Type

    Private Const BIF_RETURNONLYFSDIRS = &H1 '浏览文件夹
    Private Const BIF_NEWDIALOGSTYLE = &H40 '新样式(有新建文件夹按钮,可调整对话框大小)
    Private Const BIF_NONEWFOLDERBUTTON = &H200 '新样式中,没有新建按钮(只调大小)

    Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" _
      (ByVal pidl As Long, _
      ByVal pszPath As String) As Long
    Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" _
      (lpBrowseInfo As BROWSEINFO) As Long

    Public Function GetFolderName(hWnd As Long, Text As String) As String
      Dim bi As BROWSEINFO
      Dim pidl As Long
      Dim path As String
      With bi
        .hOwner = hWnd
        .pidlRoot = 0&  '根目录,一般不需要改
        .lpszTitle = Text
        .ulFlags = BIF_RETURNONLYFSDIRS '根据需要调整
      End With
      pidl = SHBrowseForFolder(bi)
      path = Space$(512)
      If SHGetPathFromIDList(ByVal pidl, ByVal path) Then
        GetFolderName = Left(path, InStr(path, Chr(0)) - 1)
      End If
    End Function

    展开全文
  • 2, 依次打开菜单里面的项目-属性 找到 资源这一栏,就可以看到 然后  选择现有文件或者新建一个图像,这里新建一个png图像 ,名字按照自己的喜好进行命名。 现在窗体的中间应该是一个编辑区域,最右边是该...

    1,先新建一个vb.net项目

    vs版本尽量新一些,vs2010以上(不包括2010)才有我要讲的这些功能。

    2, 依次打开菜单里面的项目-属性

    找到 资源这一栏,就可以看到

    然后 

    选择现有文件或者新建一个图像,这里新建一个png图像 ,名字按照自己的喜好进行命名。

    现在窗体的中间应该是一个编辑区域,最右边是该图片的属性窗口,包括宽度高度,格式,每位像素等等。

    你可以利用

    这些工具来实现绘图操作,绘图完成之后点击保存就可以。

    这是我绘制的星星

     这个时候,如果再回到项目属性里面的资源,就可以看到图片资源和他的名字了。

    (注意,图片的名字是没有后缀的,待会引用的时候要用到) 

    3,使用资源文件

    再窗体上新建一个图片框,然后设置他的属性

     

    接下来就是在窗体加载事件过程中,显示这个图片。

    可以看到自己刚刚画的图片已经出现在智能提示(InteliSense)里面了.

    Public Class Form1
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            PictureBox1.Image = My.Resources.star
        End Sub
    End Class
    

     

    运行成功:

    大功告成!欢迎指正!

    展开全文
  • VB MDI 文本编辑器

    千次阅读 2016-11-12 20:50:48
    简单的 VB MDI 文本编辑器总结最近兴致来潮,用VB做了一款MDI文本编辑器,在博主的资源页可以下载,在这里把思路和遇到的问题总结一下。界面如下 1.设计思路一个MDI窗体,一个子窗体,一个查找替换窗体,共三个窗体...
  • 数据输入表单和数据库连接在原有的基础上做了更人性化的改进,而且对于一些技术控来说,VB脚本可是他们用来来控制BarTender设计打印标签的基本工具,那么,改进的BarTender脚本编辑器绝对会在多方面让他们更加惊艳的...
  • 1用visual basic 6.0 做一个有菜单的窗体,要求能实现文件的打开、新建、保存、另存为、打印、退出。同时能实现复杂、剪切、粘贴、查找和查找下一个的功能。 2 同时能通过菜单打开新的窗体。
  • 菜单编辑器中菜单项后面4个小点的含义是 7.建立弹出式菜单所使用的方法是 ; 1.为了把通用对话框控件加到工具箱中应在工程菜单中选择部件命令弹出部件对话框在部件对话框的控件选项卡中选择 2.建立打开文件保存文件...
  • 该版本最值得关注的更新莫过于引入了新的 C# 编辑器、新的启动窗口、支持启动多个实例、支持 Unity 调试器。 下面是Visual Studio 2019 for Mac版本包含的新功能。 此版本包含Visual Studio for Mac的下...
  • 编辑器" /> 录制新宏" /> 窗体与控件" /> 关于 佛山小老鼠"> imageMso="DataSourceCatalogServerScript" size="large" label="ExcelHome论坛" imageMso="AccountMenu" size="large" ...
  • ' e表示以“资源管理”方式打开一个新的窗口,通常打开的也是Windows安装分区的根目录。 ' root,[path]表示打开指定的文件夹,root表示只显示指定文件夹下面的文件(夹),不显示其它磁盘分区和文件夹;[path]...
  • VB6毕竟是很老的产品了,它的代码编辑器垂直滚动条并不能随鼠标的滚轮而滚动,这个问题会让我们在编写代码的时候觉得很不方便,不过还是有一种方法可以解决这个问题的。先下载一个微软发布的“VB6IDEMouseWheelAddin...
  • c语言文本编辑器

    2021-05-20 11:01:35
    c语言文本编辑器Tag内容描述:1、文本编辑器C语言课程设计报告目录1. 设计目的及要求1.1设计目的1.2设计要求1.3题目解析2. 总体设计3. 详细设计3.1流程图3.2程序解析4. 调试分析5. 设计总结6. 心得体会7. 答辩记录8....
  • C#基础教程-c#实例教程,适合初学者

    万次阅读 多人点赞 2016-08-22 11:13:24
    在项目类型(P)编辑选择Visual C#项目,在模板(T)编辑选择控制台应用程序,在名称(N)编辑键入e1,在位置(L)编辑键入D:\csarp,必须预先创建文件夹D:\csarp。也可以单击浏览按钮,在打开文件对话框...
  • VB6(6):有关菜单

    2019-02-23 10:26:11
    (3)在菜单编辑器中,通过选取被标记为 Visible 的复选框,可以设置菜单控件的 Visible 属性的初值。在运行时,要使一个菜单控件可见或不可见,可以从代码中设置其 Visible 属性。注意 使菜单控件不可见也产生使之...
  • 菜单编辑器

    2016-06-16 21:27:30
    在‘菜单编辑器 标题为“文件(&E)”名称为“file”,单击‘下一个’; 标题为“编辑(&)”,名称为“compile”; 选中’编辑‘,单击‘插入’,单击'右箭头图标',标题为“新建工程(&N)”,名称为“New...
  • VB编程 的 菜单界面设计a任何一个应用程序,都需要通过各种命令来达成某项功能,而这些命令,大多数是通过程序的菜单来实现的,如我们常常用到的记事本的菜单:图一VB 提供了一个菜单编辑器,专门用来制作各式各样的...
  • 虽然MDI程序可以打开多个文档,但是因为每个文档进行的编辑功能是相同的,所以开发者可以将多个文档窗口当成一个来看待。 MDI程序在刚启动时,一般没有打开的文档窗口(如图11.1所示)或者只有一个初始的空文档,这时...
  • VB操作EXCEL表的常用方法

    万次阅读 多人点赞 2019-01-07 17:39:12
    VB是常用的应用软件开发工具之一,由于VB的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作带来极大的不便。...VB本身提自动化功能可以读写EXCEL表,其方法如下: ...
  • JAVA上百实例源码以及开源项目

    千次下载 热门讨论 2016-01-03 17:37:40
    在有状态SessionBean,用累加,以对话状态存储起来,创建EJB对象,并将当前的计数器初始化,调用每一个EJB对象的count()方法,保证Bean正常被激活和钝化,EJB对象是用完毕,从内存清除…… Java Socket 聊天...
  • 任何时候都可以用Ctrl+E键打开菜单编辑器B.只有当某个窗体为当前活动窗体时,才能打开菜单编辑器C.只有当代码窗口为当前活动窗口时,才能打开菜单编辑器D.任何时候都可以用标准工具栏的”菜单编辑器”按钮打开菜单...
  • HTML编辑器是用于编写HTML的工具,使用HTML编辑器时以编辑主题、索引、自定义窗口、选择添加搜索页。HTML 编辑器使用 Notepad 或 TextEdit 来编写 HTML可以使用专业的 HTML 编辑器来编辑 ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 9,153
精华内容 3,661
关键字:

vb中打开菜单编辑器的方法