我在家用vb做了一个局域网聊天的小程序，当来新消息时，如何可以闪动标题栏？ VB跟着教程做了一个聊天小程序，但是这个程序只局限于同一个局...
\u6211\u5728\u5bb6\u7528vb\u505a\u4e86\u4e00\u4e2a\u5c40\u57df\u7f51\u804a\u5929\u7684\u5c0f\u7a0b\u5e8f\uff0c\u53ef\u53ea\u80fd\u53d1\u9001\u6587\u5b57\uff0c\u5982\u4f55\u53ef\u4ee5\u53d1\u9001\u52a8\u6001\u7684\u8868\u60c5\uff1f\u4e24\u79cd\u65b9\u6848\uff1a
1.\u5728\u5ba2\u6237\u7aef\u653e\u7f6e\u52a8\u6001\u8868\u60c5\u7684\u6587\u4ef6\uff0c\u7a0b\u5e8f\u5728\u8fd0\u884c\u65f6\u68c0\u6d4b\u53d1\u8fc7\u6765\u7684\u8868\u60c5\u7533\u8bf7\u547d\u4ee4\uff0c\u6bd4\u5982\u4f60\u53d1\u9001\u4e00\u4e2a /\u8868\u60c51 \u5728\u7a0b\u5e8f\u4e2d\u8f6c\u4e49\u4e00\u4e0b \u628a\u672c\u5730\u7684\u8868\u60c5\u663e\u793a\u51fa\u6765\u5c31\u53ef\u4ee5\u4e86
2.Winsock\u53ef\u4ee5\u4e8c\u8fdb\u5236\u4f20\u8f93\u7684 \u4f60\u628a\u672c\u5730\u8868\u60c5\u6587\u4ef6\u5f53\u505a\u6bd4\u7279\u6d41\u53d1\u9001\u8fc7\u53bb \u8ba9\u5bf9\u65b9\u63a5\u53d7\u540e\u5728\u5904\u7406\u6bd4\u7279\u6d41\u8f6c\u6362\u6210\u56fe\u7247\u683c\u5f0f \u8fdb\u800c\u663e\u793a
\u7a0b\u5e8f\u4e0d\u53ef\u80fd\u53ea\u9650\u4e8e\u4e00\u4e2a\u5c40\u57df\u7f51\u7684\uff0c\u53ea\u8981\u4e24\u4e2aIP\u80fd\u591f\u901a\u4fe1\uff08\u53ef\u7528Ping\u8bd5\u8bd5\uff09\u8fd9\u4e2a\u7a0b\u5e8f\u5c31\u53ef\u4ee5\u901a\u4fe1\u3002\u68c0\u67e5\u4f60\u548c\u5176\u4ed6\u7684\u7f51\u6bb5\u80fd\u4e0d\u80fd\u6b63\u786e\u901a\u4fe1\uff0c\u6216\u8005IP\u9519\u4e86\u6ca1\u3002
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()
Timer1.Enabled = False
End Sub
4. 将如下的代码添加到Form1的Form_Load事件中：
Private Sub Form_Load()
Timer1.Interval = GetCaretBlinkTime()
Form2.Show
End Sub
5. 将如下的代码添加到Timer1的Timer1_Timer事件中：
Private Sub Timer1_Timer()
SUCcess = FlashWindow(Form1.hwnd, 1)
End Sub
6. 添加第二个窗体，采用缺省的方法建立Form2。
7. 将如下的代码添加到Form2的单击事件中：
Private Sub Form_Click()
Form1.Timer1.Enabled = True
End Sub
8. 添加一个新的模块，采用缺省的方法建立Module1.Bas。将如下的代码添加到该模块的通用声明部分中：
#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使它它变为活动方式，则窗体的标题栏将不再闪烁
绛旓細鍙浣犺兘鍦╒isual Basic涓緱鍒扮獥鍙ｇ殑鍙ユ焺锛屼綘灏卞彲浠ヤ娇鐢╓indows 搴旂敤绋嬪簭缂栫▼鎺ュ彛锛圓PI锛夊嚱鏁版潵浣胯绐楀彛鐨勬爣棰樻爮杩涜闂姩銆傚嚱鏁癋lashWindows鍙互琚敤浣涓涓鐗瑰畾鐨勭獥鍙ｉ棯鍔ㄤ竴娆°傝浣跨敤璇ュ嚱鏁帮紝闇瑕佸皢濡備笅鐨勫０鏄庤鍙ュ寘鍚湪浣犵殑绐椾綋鐨勯氱敤澹版槑閮ㄥ垎涓細If Win32 Then Declare Function FlashWindow Lib "user32" ...
绛旓細鑳界敤VB缂栫▼鎺у埗鏄緢濂界殑锛屽湪灞鍩熺綉涓婂疄鐜板緢绠鍗曪紝鍦ㄥ箍鍩熺綉涓婂氨鏈夌偣闅句簡锛屼笉绠℃槸浣犲閲岄潰杩樻槸鍏徃閮界敤鍒拌矾鐢卞櫒銆侀槻鐏绛夎澶囧惂锛岄偅浣犵殑绋嬪簭瑕佽В鍐充粈涔圢AT绌垮鐨勯棶棰樹簡銆
绛旓細鐢:'涓嶅氨鍥惧惉涓笩鍎垮彨鍞ゅ悧?鎴戜滑閭ｅ皬瀛愮粰鎴戝嚭涓绘剰,璇:'鐖,鎮ㄨ鍚笩鍙敜,鎴戠敤褰曢煶鏈虹粰鎮ㄥ綍鍘!'' 涔:鍢,杩欐槸涓柊鎷涘効銆 鐢:'鍒,鎶戒釜绀兼嫓澶,杩樼湡缁欐垜褰曞洖鏉ヤ簡銆傚緱,鎴戝湪瀹娆ｈ祻娆ｈ祻,璁╁皬瀛愮粰鎴戞斁!涓寮濮'鍚卞惐,鍚卞惐'杩樼湡鏈夊嚑澹般' 涔:杩欏氨琛屽暒銆 鐢:'鍙槸鍚簡鍗婂ぉ鑰佹槸'鍚卞惐,鍚卞惐',鎴戦棶:鈥樺皬瀛...
绛旓細鐢佃剳璇█鐨勭骇鍒秺楂橈紝瓒婃帴杩戜汉绫昏瑷锛屼絾鐏垫椿鎬т笌鏁堢巼涔熻秺浣庛傛満鍣ㄨ瑷鏈闅剧敤锛屼絾瀹冩槸鐢佃剳鐨勬瘝璇紝鍥犳瀹冭兘鐩存帴瀛樺彇鐢佃剳閲岀殑涓鍒囪祫婧愶紝杩愯鏁堢巼涔熸渶楂橈紝鑰岃薄VB绛変竴浜涢珮绾ц瑷锛屽湪鍋氫竴浜涚粏鑺傚伐浣滄椂灏卞緢涓嶆柟渚裤傚鏋滀粠鐢佃剳璇█鐨勬墽琛屾柟寮忔潵鐪嬶紝鍒欎篃鍙垎涓轰笁绉嶏紝涓绉嶆槸缂栬瘧褰㈠紡锛屽嵆閫氳繃缂栬瘧绯荤粺(Compiler)...
绛旓細鎴戞槸涓垵瀛﹁,鏈熸湯瑕佷氦涓鐢╒B鍒朵綔绠鍗曠殑灏忔父鎴,鎷滄墭鍏堝皢瀹屾暣浠ｇ爜鍐欏嚭鏉,涓嬮潰鍐嶈ˉ鍏呰鏄庝唬鐮佷腑鐨勬楠ゆ敞鎰忎簨椤,渚嬪瑕佽缃殑绐楀彛,鎸夐敭绛,璇蜂笉瑕佸皢灞炴ц缃篃鍐欒繘浠ｇ爜涓!(鏈濂芥垜... 鎴戞槸涓垵瀛﹁,鏈熸湯瑕佷氦涓敤VB鍒朵綔绠鍗曠殑灏忔父鎴,鎷滄墭鍏堝皢瀹屾暣浠ｇ爜鍐欏嚭鏉,涓嬮潰鍐嶈ˉ鍏呰鏄庝唬鐮佷腑鐨勬楠ゆ敞鎰忎簨椤,渚嬪瑕佽缃殑绐楀彛,...
绛旓細鎴鏈変竴涓鏁版嵁搴,閲岄潰鏈夊悓瀛︾殑鍚嶅瓧,鍜岃韩楂,浣撻噸绛変俊鎭,鎴戠幇鍦ㄦ兂鍦VB涓,閫氳繃閫変腑缁勫悎妗嗕腑鍚屽鐨勫悕瀛,鐒跺悗姝ゅ悓瀛︾殑韬珮,浣撻噸淇℃伅灏辫兘鍦ㄧ浉搴旂殑鏂囨湰妗嗕腑鏄剧ず鍑烘潵,鎴戣鎬庝箞鍐欎唬鐮,... 鎴戞湁涓涓暟鎹簱,閲岄潰鏈夊悓瀛︾殑鍚嶅瓧,鍜岃韩楂,浣撻噸绛変俊鎭,鎴戠幇鍦ㄦ兂鍦╒B涓,閫氳繃閫変腑缁勫悎妗嗕腑鍚屽鐨勫悕瀛,鐒跺悗姝ゅ悓瀛︾殑韬珮,浣撻噸淇℃伅灏辫兘...
绛旓細褰撶獥浣撹瑁呭叆鍐呭瓨锛圠oad锛夋椂锛屽氨浼氳Е鍙慒orm_Load浜嬩欢銆傚浜庣獥浣撳唴閮ㄨ岃█锛岀獥浣撴湰韬槸鍙湁涓涓鐨勶紝灏卞ソ鍍忎綘鍦ㄥ閲岀О鍛艰嚜宸辩殑鐖哥埜锛屽彧闇璇粹滅埜鐖糕濆嵆鍙紝鑰屼笉鐢ㄨ鈥滄垜鐨勭埜鐖糕濇垨鑰呰鈥滄垜寮犱笁鐨勭埜鐖糕濄傚洜姝ゅ浜庣敱绐椾綋瑙﹀彂鐨勪簨浠讹紝鍙渶瑕佸姞"Form_"浣滀负鍓嶇紑鍗冲彲銆傚鏋滄槸鎺т欢瑙﹀彂鐨勪簨浠讹紝灏辫浠ユ帶浠剁殑鍚嶇О鏉...
绛旓細鍦ㄥ鏈変竴鍙扮數鑴戞庝箞鏍疯兘璧氬埌閽 1浣犲彲浠ュ紑瀹剁綉搴楋紝鏄撹叮鍜屾窐瀹濋兘涓嶉敊銆 2鎴栬鍋氫釜濞佸锛屽湪缃戜笂甯姪鍒汉瑙ｅ喅闂銆 濞佸涓浗姣旇緝鏉冨▉銆 3鍋氫釜娓告垙闄粌锛屾悳瀵讳竴涓嬫瘮杈冨鏄撴壘鍒般 4缃戣矾闂嵎璋冩煡鍛 5鎴栬呯粰浜鍋氱綉椤鍜岃璁 鎬讳箣姣旇緝澶氾紝鐪嬭嚜宸辩殑鎶鑳藉拰鍏磋叮浜嗐 绁濆ソ杩 鐜板湪浠涔堥兘娌℃湁锛屽彧鏈変竴...
绛旓細褰撴潵鍒涓涓闄岀敓鐨勫湴鏂规椂,鎴戜滑鏃跺父浼氶渶瑕佷綔鑷垜浠嬬粛,鑷垜浠嬬粛鏄粨璇嗘柊鏈嬪弸鐨勯噸瑕佹墜娈点備絾鏄嚜鎴戜粙缁嶆湁浠涔堣姹傚憿?涓嬮潰鏄垜涓哄ぇ瀹舵敹闆嗙殑鑷垜浠嬬粛鑼冩枃,甯屾湜鑳藉甯姪鍒板ぇ瀹躲 鑷垜浠嬬粛 绡1 鏈汉浜嶺X骞磋嚜鍒濅腑姣曚笟鍚庡氨鍦ㄩ挦宸炲競鍗牎灏辫鎶ょ悊涓撲笟,XX骞村湪閽﹀窞甯備簩鍖婚櫌瀹炰範,鏈熼棿绾緥鎬уソ,鏈嶄粠鍒嗛厤,宸ヤ綔璁ょ湡涓诲姩,濂藉,瀵圭梾浜烘佸害...
绛旓細绠鍗曞湴璇,灏辨槸鎶婃濈淮杩囩▼鍦ㄥ績閲岄粯璇.姣斿璇,鏁板棰樹腑甯稿埄鐢ㄥ叕寮(a-b)2=a2-2ab+b2鏉ヨВ鍐冲叿浣撻棶棰,鑰屽垵瀛︽椂瀹规槗鎼炴贩.杩欐椂灏辫灏忓績浜,瑕佺湅浠旂粏闂涓摢閮ㄥ垎鏄痑 ,鍝儴鍒嗘槸b,鍝噷鐢ㄨ礋鍙,杈瑰仛杈归粯璇绘濈淮杩囩▼.杩欎釜杩囩▼鐩稿綋浜庢湁鍙涓涓鈥滄垜鈥濆湪鐩戠潱杩欎竴涓滄垜鈥濆仛棰,杩欐槸涓涓畝渚挎槗琛岀殑鍏嬫湇椹檸鐨勬柟娉. 5,鍋...
