用VB 作个局域网聊天程序,怎么做

用VB 作个局域网聊天程序,怎么做,第1张

菜鸟就别考虑编了

看看局域网聊天NetCall实现局域网内(外)的短信息传递,为WinPopup的替代品。在界面上下了工夫,更会隐藏,更能在老板眼底下使用。有信息到达时整个界面变成红色以作提示。

VB实现窗口标题栏 闪动

闪动一个窗口的标题栏意味着改变它的标题栏的外观,例如它从活动变为不活动,或是从不活动变为活动等等。只要你能在Visual Basic中得到窗口的句柄,你就可以使用Windows 应用程序编程接口(API)函数来使该窗口的标题栏进行闪动。函数FlashWindows可以被用使一个特定的窗口闪动一次。要使用该函数,需要将如下的声明语句包含在你的窗体的通用声明部分中:

#If Win32 Then

Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

#Else

Declare Function FlashWindow Lib "User" (ByVal hwnd As Integer, ByVal bInvert As Integer) As Integer

#End If

该函数需要2个参数,第一个参数是要闪动标题栏的窗口的句柄,第二个参数用于指定是设置窗口的闪动状态,还是恢复其原始状态。如果该bInvert参数非0,则表明窗口的标题栏被闪动,如果该参数为0,则表明窗口的标题栏被恢复为原始状态。该函数所返回的值用于指定调用该函数前窗口的状态,如果该返回值非0,则表明窗口在调用该函数之前是活动的,否则,如果返回值为0,则表明调用函数前窗口是非活动的。当使用该FlashWindow函数时,一个较好的方法是将标题栏闪动的频率设置为同脱字符(也即闪动的光标)相同,脱字符的闪动频率可以通过调用函数GetCaretBlinkTime来获得。要使用该函数,需要将如下的声明语句包含在你的窗体的通用声明部分中:

#If Win32 Then

Declare Function GetCaretBlinkTime Lib "user32" () As Long

#Else

Declare Function GetCaretBlinkTime Lib "User" () As Integer

#End If

该函数返回用毫秒值表示的时间。

样例程序

1 在Visual Basic中开始一个新的工程,采用缺省的方法建立Form1。

2 在Form1上添加一个定时器控件,采用缺省的方法建立Timer1。

3 将如下的代码添加到Form1的Form_GotFocus事件中:

Private Sub Form_GotFocus()

Timer1Enabled = False

End Sub

4 将如下的代码添加到Form1的Form_Load事件中:

Private Sub Form_Load()

Timer1Interval = GetCaretBlinkTime()

Form2Show

End Sub

5 将如下的代码添加到Timer1的Timer1_Timer事件中:

Private Sub Timer1_Timer()

SUCcess = FlashWindow(Form1hwnd, 1)

End Sub

6 添加第二个窗体,采用缺省的方法建立Form2。

7 将如下的代码添加到Form2的单击事件中:

Private Sub Form_Click()

Form1Timer1Enabled = True

End Sub

8 添加一个新的模块,采用缺省的方法建立Module1Bas。将如下的代码添加到该模块的通用声明部分中:

#If Win32 Then

Declare Function FlashWindow Lib "user32" ( _

ByVal hwnd As Long, _

ByVal bInvert As Long) As Long

Declare Function GetCaretBlinkTime Lib "user32" () As Long

Dim Success As Long

#Else

Declare Function FlashWindow Lib "User" ( _

ByVal hwnd As Integer, _

ByVal bInvert As Integer) As Integer

Declare Function GetCaretBlinkTime Lib "User" () As Integer

Dim Success As Integer

#End If

通过单击F5键来运行该样例程序,单击Form2窗体,这时Form1窗体将处于非活动方式,其标题栏将会不断闪烁。单击Form1使它它变为活动方式,则窗体的标题栏将不再闪烁

以上就是关于用VB 作个局域网聊天程序,怎么做全部的内容,包括:用VB 作个局域网聊天程序,怎么做、我在家用vb做了一个局域网聊天的小程序,当来新消息时,如何可以闪动标题栏、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/zz/10629993.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-10
下一篇 2023-05-10

发表评论

登录后才能评论

评论列表(0条)

保存