以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  C#转VB怎么用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192402)

--  作者:cd_tdh
--  发布时间:2024/6/21 12:28:00
--  C#转VB怎么用
老师有段C#代码转为VB后如下,应该怎么用呢?我想修改主界面状态栏背景色
Imports System.Drawing
Public Class Form1
    Inherits Form
    Private statusBar1 As StatusBar
    Public Sub New()
        InitializeComponent()
        statusBar1.BackColor = Color.FromArgb(255, 192, 203)
        statusBar1.BackColor = Color.Blue
    End Sub
End Class
[此贴子已经被作者于2024/6/21 12:28:35编辑过]

--  作者:有点蓝
--  发布时间:2024/6/21 16:17:00
--  
如果是指foxtable主界面的状态栏,无法设置背景色的。上面代码没有任何用处
--  作者:cd_tdh
--  发布时间:2024/6/24 16:41:00
--  
若果是窗口菜单增加的状态栏,怎么修改背景色?
--  作者:有点蓝
--  发布时间:2024/6/24 16:54:00
--  
Forms("窗口1").Strips("状态栏").basecontrol.RenderMode = 1
Dim o = Forms("窗口1").Strips("状态栏").Items("项目1").basecontrol
o.backcolor = Color.red

--  作者:cd_tdh
--  发布时间:2024/6/24 17:34:00
--  
只是状态栏新增的项背景改了,其余部分没改,整个状态栏不能一起改吗
会了,这样就行了
Dim o2 = Forms("窗口1").Strips("状态栏").basecontrol
o2.backcolor = Color.red
[此贴子已经被作者于2024/6/24 17:39:24编辑过]