vb.net悬浮图标 vba实现弹出式悬浮菜单

VB.net一个很简单的UI问题

花了二十分钟给你写了代码，已测试。建议学习并使用System.Drawing绘制。

主要是掌握Graphics.FillRectangle和DrawString的使用。

Imports System.Drawing

Public Class 进度条UI

    Public 上面笔刷 As SolidBrush = New SolidBrush(Color.FromArgb(192, 175, 238, 238))

    Public 下面笔刷 As SolidBrush = New SolidBrush(Color.FromArgb(192, 30, 144, 255))

    Public 文字笔 As SolidBrush = New SolidBrush(Color.FromArgb(255, 255, 255, 255))

    Public 字体 As Font = New Font("微软雅黑", 14.0)

    Public 文字格式 As StringFormat = New StringFormat() With

{.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center}

    ''' summary

    ''' 绘制指定进度的图像。

    ''' 当进度变化时调用一次本方法，建议将创建的Graphics对象保存到变量而不要重复创建。。

    ''' /summary

    ''' param name="控件"绘制到此控件的工作区/param

    ''' param name="g"绘制到控件的Graphics对象，例如 Button1.CreateGraphics()/param

    ''' param name="进度"进度百分比实数，57% = 0.57/param

    Public Sub 绘制(ByRef 控件 As Control, ByRef g As Graphics, ByVal 进度 As Double)

        Dim 矩形 = 控件.ClientRectangle '获取控件的工作区矩形

        Dim 下面高度 = CInt(矩形.Height * 进度) '获取下面颜色块的高度

        Dim 中间位置 = 矩形.Top + 矩形.Height - 下面高度 '获取中间分界线的Y坐标

        Dim 上矩形 = New Rectangle(矩形.X, 矩形.Y, 矩形.Width, 矩形.Height - 下面高度)

        Dim 下矩形 = New Rectangle(矩形.X, 中间位置, 矩形.Width, 下面高度)

        g.FillRectangle(上面笔刷, 上矩形)

        g.FillRectangle(下面笔刷, 下矩形)

        '绘制文字

        Dim 文字 As String = String.Format("{0:0.00}%", 进度 * 100)

        g.DrawString(文字, 字体, 文字笔, 矩形, 文字格式)

    End Sub

End Class

下面是Form1窗体的代码：添加一个Button1和Timer1控件，将Button1尺寸拖大点

Public Class Form1

    Public g As Graphics

    Public 进度条UI As New 进度条UI

    Public 进度 As Double

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        g = Button1.CreateGraphics()

        Timer1.Enabled = Not Timer1.Enabled

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        进度 += 0.01

        进度条UI.绘制(Button1, g, 进度)

    End Sub

End Class

VB.NET 窗体图标和任务栏图标设置问题

任务栏图标就是窗体的ICON属性设置的图标，和标题栏的图标是完全一样的。如果你想做的不一样，那就用无边框窗体，自制一个标题栏

vb.net如何实现点开程序逐渐浮现出一张图片,在渐渐消失,

1、首先可以在窗体的Picture中设置图片，使得一打开该程序就能看到图片。

2、其次每次开机时弹出，可以将该程序设为Windows启动项。

3、最后是vb.net实现点开程序逐渐浮现出一张图片在渐渐消失的解决方法，安全便捷。

asp.net中在vb环境下怎样建立悬浮框，求详细代码，谢谢大家啦！！急用！！！！

C#

string [] Day=new string [];

Console.WriteLine(Day[Convert.ToInt16(DateTime.Now.DayOfWeek)]);

相信VB.net的你，应该懂的。

vb.net怎么制作浮动菜单？用toolbar吗，还是其他的？vs2008怎么找不到toolbar？那里加载？

可以做一个窗体vb.net悬浮图标，该窗体中放入vb.net悬浮图标你需要vb.net悬浮图标的菜单。

这个窗体几个特殊设置：

1。TOPmost设置为TRUE

2。Formborderstyle设置为none

3。showintaskbar设置为False

4。size设置为你的菜单大小

用的时候new一下就有啦！

这样就相当于悬浮窗体了，细节自己研究吧！^_^

关于vb.net悬浮图标和vba实现弹出式悬浮菜单的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。