uvyx
发表于 2025-7-3 09:42:43
不知道能不能设置成浮动的，然后可以修改界面的尺寸大小？类似下面这样子
zxw2735
发表于 2025-7-26 17:52:07
本帖最后由 zxw2735 于 2025-7-26 20:56 编辑
点赞点赞点赞
39922228
发表于 2025-8-12 11:39:26
下拉菜单不能放在自定义的地方
pmq
发表于 2025-8-12 13:11:24
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"
王阿非
发表于 2025-8-28 14:07:41
学习一下，不嫌多
daskfo
发表于 2025-8-30 09:50:12
大佬，侧边栏的箭头，可以设置成天正风格吗？好像跟天正是相反的，天正点开二级菜单的时候，箭头是向下的
pmq
发表于 2025-8-30 11:11:04
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 = "▶ " & CommandA.Title
修改为 currentMainButton.Text = "▼ " & CommandA.Title
currentExpandedMenu = Nothing
currentMainButton = Nothing
Else
' 否则，折叠当前已展开的菜单（如果有）
If currentExpandedMenu IsNot Nothing Then
currentExpandedMenu.Visible = False
currentMainButton.Text = "▶ " & currentMainButton.Text.Substring(2)
修改为 currentMainButton.Text = "▼ " & currentMainButton.Text.Substring(2)
End If
' 展开新的菜单
subMenuPanel.Visible = True
mainButton.Text = "▼ " & CommandA.Title
修改为 mainButton.Text = "▶ " & 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, "▼", "▶")
修改为
Dim triangleText = If(subMenuPanel.Visible,, "▶" "▼")
张向华
发表于 2025-9-4 20:02:03
都是高手，我连怎样编译都不会
skg123
发表于 2025-10-29 00:20:42
好东西
学习
leedun
发表于 2025-11-27 20:29:32
本帖最后由 leedun 于 2025-11-28 16:53 编辑
用源码编译dll加载不出来是怎么回事