Question

VB.NET,现在屏幕上加各样的东西。求大侠帮忙

看见那个“大家晚上好了么”我想在运行的时候，给用户一些提示。可以在桌面上固定位置，显示当前程序运行情况，这个图是我用一款插件做的，现在不想用插件，哪位大侠能帮帮忙么
我初学VB.net 能不能详细说下怎么在窗体显示文字呢。，比如用哪个函数，在网上找到个这样的函数
e.Graphics.DrawString("你好", New Font("黑体", 60, FontStyle.Bold), Brushes.Blue, 0, 0)
这个可以在form1上显示。但是1.FORM1窗口启动他就显示，我想在特定的时刻显示。2.“你好”如何实时更新成我要显示的文字呢。。。

Answer 1

创建好的第一个窗口中 放入下面代码

Public Class Form1

    Private Sub 消息内容框_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 消息内容框.SelectedIndexChanged
        'MsgBox(消息内容框.SelectedItem)

        消息内容 = 消息内容框.SelectedItem '赋值内容
        显示窗口.Hide()
        显示窗口.Show() '显示窗口
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        显示窗口.Location = New Point(0, 0) '把窗口移动到 左上角
        显示窗口.Size = New Point(600, 100) '设置显示内容窗口大小
        显示窗口.FormBorderStyle = Windows.Forms.FormBorderStyle.None '把窗口设置为无边框
        显示窗口.TopMost = True '把窗口置顶

    End Sub
End Class

 

再添加个窗口 窗口名称 为 ：显示窗口    

好了再复制下面代码

 

Public Class 显示窗口

    Private Sub 显示窗口_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

        e.Graphics.DrawString(消息内容, New Font("黑体", 30, FontStyle.Bold), Brushes.Blue, 0, 0)
    End Sub
End Class

 

最后加个类模块

Module 公有变量声明模块

    Public 消息内容 As String

 .

End Module

 

希望能帮到你 我用VS2005 帮你调试好了

Answer 2

我想方法有两种：

1. 做一个无边框的窗体，在窗体显示文字。然后置顶，放在特定的位置。

2. 获得桌面的HDC，直接在桌面DC上画文字。（这种我还没尝试过，第一种太简单了）
   

追问

您好，我是初学者。第一种情况下，能详细说下么。比如用哪个函数？我上面补充的那个函数可以么？但是无法调用呀。

追答

第一种情况你做到了。你想在什么情况下显示呢？这个主要是事件处理的问题。用特定的事件触发这个响应函数。未必是Form_Load()
如果是特定时间的话，你可以用一个Timer。再判定时间是否符合。