VB.NET [源码] AutoCAD下拉菜单和折叠菜单

uvyx

不知道能不能设置成浮动的，然后可以修改界面的尺寸大小？类似下面这样子

zxw2735

点赞点赞点赞

39922228

下拉菜单不能放在自定义的地方

pmq

39922228 发表于 2025-8-12 11:39
下拉菜单不能放在自定义的地方

修改源代码
' 主方法：创建工具条（文字菜单+图标菜单）
<CommandMethod("XLCD")>
Public Sub CreateDynamicToolbarWithTextAndIcons()
    Dim filePath As String = fullPath & "\XLCD.mnu" 为
    Dim filePath As String = "E:\...\XLCD.mnu"

王阿非

学习一下，不嫌多

daskfo

大佬，侧边栏的箭头，可以设置成天正风格吗？好像跟天正是相反的，天正点开二级菜单的时候，箭头是向下的

pmq

daskfo 发表于 2025-8-30 09:50
大佬，侧边栏的箭头，可以设置成天正风格吗？好像跟天正是相反的，天正点开二级菜单的时候，箭头是向下的

修改源代码



' 主菜单按钮点击事件
AddHandler mainButton.Click,
    Sub(sender, e)
        ' 如果点击的是当前已展开的菜单，则折叠它
        If currentExpandedMenu IsNot Nothing AndAlso currentExpandedMenu Is subMenuPanel Then
            currentExpandedMenu.Visible = False
    将               currentMainButton.Text = "&#9654; " & CommandA.Title

   修改为         currentMainButton.Text = "▼ " & CommandA.Title


            currentExpandedMenu = Nothing
            currentMainButton = Nothing
        Else
            ' 否则，折叠当前已展开的菜单（如果有）
            If currentExpandedMenu IsNot Nothing Then
                currentExpandedMenu.Visible = False
                           currentMainButton.Text = "&#9654; " & currentMainButton.Text.Substring(2)

    修改为             currentMainButton.Text = "▼ " & currentMainButton.Text.Substring(2)


            End If

            ' 展开新的菜单
            subMenuPanel.Visible = True
                     mainButton.Text = "▼ " & CommandA.Title

    修改为        mainButton.Text = "&#9654; " & CommandA.Title


            ' 更新当前展开的菜单引用
            currentExpandedMenu = subMenuPanel
            currentMainButton = mainButton
        End If
    End Sub


自定义按钮的 Paint 事件
AddHandler mainButton.Paint,
    Sub(sender, e)
        Dim btn = CType(sender, Button)
        Dim g = e.Graphics
        g.Clear(btn.BackColor) ' 清除背景

        ' 绘制蓝色三角形
    将    Dim triangleText = If(subMenuPanel.Visible, "▼", "&#9654;")
修改为
           Dim triangleText = If(subMenuPanel.Visible,, "&#9654;" "▼")

张向华

都是高手，我连怎样编译都不会