    VBд±           ҳ  ѧԺ       缼  ͼͼ  ϵͳ  ָ    칫  ý嶯  վӪ  ֤  ҳ    web    Ϸ  QQ      ǰλã   򿪷  VB  VBд±     VBд± ڣ2008624 ߣ 鿴:[     С ]       mnuOpen_Click 
'......(дťĴ) 
End Select 
End Sub 

ɺһǵĳǷ֣˹֮󣬳Ưˣֻһ⣺һϳĵ󣬱༭ϵļͷˡԭǣռһĿռ䡣ñ༭λúʹСеRichTextBox1.Top = 20  RichTextBox1.Height = Me.ScaleHeight - 40ֱΪRichTextBox1.Top = 380RichTextBox1.Height = Me.ScaleHeight - 400ɡ 

.״̬ 
(һ)״̬ 
״̬ӢֽStatusBarڴĬϳڴ·ҼҳԻ򣬵һЩ񣬿ԽġʽΪ 
0-sbrText ʾıд 
1-sbrCaps ʾСд״̬ 
2-sbrNum ʾNumLock״̬ 
3-sbrIns ʾInsert״̬ 
4-sbrScr1 
5-sbrTime ʾʱ䣬ʱʱ䲻ϵͳʱӱ仯 
6-sbrDate ʾڣ 
ע⣺ӽ״̬轫Form_ReszeеRichTextBox1.Height = Me.ScaleHeight - 400ΪRichTextBox1.Height = Me.ScaleHeight - 600 
()״̬䡰ʽԾòñд()Щӣ߿洧ĦӶﵽһЧ 

һûѡȡˡ½õһʾĿǰ״̬ڴļ뽫д򿪡˵棺 
StatusBar1.Panels(1).Text = "Ŀǰ״̬ڴļ" &amp; "" &amp;CommonDialog1.FileTitle &amp; "" 

õʾʱ䲢ʱϵͳʱӱ仯 
ȣһTimerؼIntervalΪ1000Ȼ 
Form_Load̼룺StatusBar1.Panels(1).Text = TimeȻTimerؼд룺 

Private Sub Timer1_Timer() 
If StatusBar1.Panels(3).Text <> CStr(Time) Then 
StatusBar1.Panels(3).Text = Time 
End If 
End Sub 

༭ı仯ʱõһʾڱ༭ĵļ 
Private Sub RichTextBox1_Chang() 
StatusBar1.Panels(1).Text = "ڱ༭ĵ" &amp; CommonDialog1.FileName 
End Sub 

ôãѾӵһģļ±ˡ±RichTextؼܴ򿪺ͱ༭ĵʹȷWindowsԴļ±öࡣȻһЩĹҪӺƣͿȥˡ  


http://www.hackhome.com/  һҳ   [1]   [2]   [3]   [4]      Ʊҳַͱ⣬͸QQ/Msnĺһ 
 
   VBд± £   VBѧ±ܼӴ   VBд±   Javaдļ±1   Ҽ½±ʧ   û СС±üQQ   ֱ˫ü±δ֪ļ   ΪʲôµVista2G,ȴһ±?   ±Atnotes   ɱС±ؼ   java±򣬲  VBд±    BDV Notepad[BDV±] V5.1    ذ  
һƪ: VBԼSQL  
һƪ: VBVCDķ뼼  رվرֹתصר¿תأעԭʼ  .°Ȩԭʼ.ڱվתµĸ˺վǱʾл⡣վת  صаȨϵ༭Ա,ǾԸ. תעԴhttp://www.hackhome.com     ƷƼ  
 ȵTOP10    VB+Accessͼϵͳ    VBʱͱܵ    ͨſؼMSCommʹ    VBʹEXCEL    ؼС洰С仯仯    FindWindow    VBѧ±ܼӴ    ߶ʾؼӦ    180VBͼνԴʵ    VBݿԴ60ʵ    VBؼĿ¼ļ    CreateFile    VBʹDirectXļ̳    VB6.0дԼMP3    ļ༭    VB쳬Ի˵    VBд±    Ĵ    ھڷϢ    VB6DataGridʵͨõӱ     رƼ    Ĵ    VB6.0дԼMP3    ǳVB.Net Windows Form    ׹Ʊ˰ʼ    VisualBasic 6еĺִ    Զȡû½ƣٽ֤    APIָĿ¼ļ    VBݿԴ60ʵ    VBIEԶ尴ť    VBMS OfficeCOM    Visual Basicװ    WebComputingADOܽᱨ    vsprintӡʵ    VBʵһ򵥵ESMTPͻ    webbrowser 2ղأ    SetForegroundWindow    API޸עģ    VB쳬Ի˵    WINDOWSϢ˵    ؼС洰С仯仯         | () | Ȩ |  | Ϣ   Copyright 2003-2007  All Rights Reserved.  ICP05018371       