说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

设定StatusBar的文字成不同的颜色-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
设定StatusBar的文字成不同的颜色-VB资料


设定StatusBar上的文字,该文字以StatusBar所在Form的字型设定为准,并以form
的ForeColor为字的颜色,文字过长时,自动会截除
这个程式的实质意义不太大,因为当文字被盖掉後需自行重新再呼叫这个Sub才能再
将文字显示出来,除非我们再使用Subclassing的方式,於statusBar接收到WM_PAINT
时,去呼叫这个SubRoutine,这程式着重於Font的了解

'below is within Form
Private Sub Command1_Click()
Call ShowPanelText(StatusBar1, 1, "这是一个有趣的程式hahahaha")
End Sub

'第一个叁数传入StatusBar
'第二个叁数表示文字要在第几个panel上 显示,由1算起
'第三个叁数是待显示的字串
Private Sub ShowPanelText(StatusBar1 As StatusBar, Pno As Long, ByVal PanelText
As String)
Dim bkcolor As Long
Dim Color As Long
Dim res As Long
Dim aRect As RECT, rect5 As RECT
Dim hfont As Long
Dim hdc2 As Long
Dim TextHeight As Long
Dim tx As TEXTMETRIC
Dim oScaleT As Long, oScaleL As Long, oScaleH As Long, oScaleW As Long
Dim oScaleM As Long

oScaleM = Me.ScaleMode
oScaleT = Me.ScaleTop
oScaleL = Me.ScaleLeft
oScaleH = Me.ScaleHeight
oScaleW = Me.ScaleWidth
Me.ScaleMode = 3

hdc2 = GetDC(StatusBar1.hwnd)
Call GetTextMetrics(Me.hdc, tx) '取得form 字型资讯
hfont = CreateFont(tx.tmHeight, tx.tmAveCharWidth, 0, 0, _
tx.tmWeight, 0, 0, 0, tx.tmCharSet, 0, 0, 0, _
tx.tmPitchAndFamily, Me.Font.Name) '依form的字型产生另一个font
'因为不知如何取得font的handle只好,使用CreateFont的方式来取得 hfont
Call SelectObject(hdc2, hfont) '设字型
res = SetTextColor(hdc2, Me.ForeColor) '设字的颜色
bkcolor = GetSysColor(COLOR_BTNFACE)
SetBkColor hdc2, bkcolor '设字的背景色
SetTextAlign hdc2, TA_TOP
TextHeight = Me.TextHeight(PanelText)
aRect.Top = (StatusBar1.Height - TextHeight) \ 2
If StatusBar1.Style = 0 Then
aRect.Left = StatusBar1.Panels(Pno).Left + 2
aRect.Right = aRect.Left + StatusBar1.Panels(Pno).Width - 6
Else
aRect.Left = StatusBar1.Left + 2
aRect.Right = StatusBar1.Width - 6
End If
aRect.Bottom = StatusBar1.Height
InvalidateRect StatusBar1.hwnd, aRect, 1 '宣告工作区无效,用来重画statusBar
UpdateWindow StatusBar1.hwnd
DrawText hdc2, PanelText, LenB(StrConv(PanelText, vbFromUnicode)), aRect, 0
ReleaseDC StatusBar1.hwnd, hdc2
DeleteObject (hfont)
Me.ScaleMode = oScaleM
Me.ScaleHeight = oScaleH
Me.ScaleTop = oScaleT
Me.ScaleLeft = oScaleL
Me.ScaleWidth = oScaleW
End Sub


'below is within .bas module
Option Explicit
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Type TEXTMETRIC
tmHeight As Long
tmAscent As Long
tmDescent As Long
tmInternalLeading As Long
tmExternalLeading As Long
tmAveCharWidth As Long
tmMaxCharWidth As Long
tmWeight As Long
tmOverhang As Long
tmDigitizedAspectX As Long
tmDigitizedAspectY As Long
tmFirstChar As Byte
tmLastChar As Byte
tmDefaultChar As Byte
tmBreakChar As Byte
tmItalic As Byte
tmUnderlined As Byte
tmStruckOut As Byte
tmPitchAndFamily As Byte
tmCharSet As Byte
End Type
Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" _
(ByVal H As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, _
ByVal W As Long, ByVal I As Long, ByVal u As Long, ByVal S As Long, _
ByVal C As Long, ByVal OP As Long, ByVal CP As Long, _
ByVal Q As Long, ByVal PAF As Long, ByVal F As String) As Long
Declare Function GetTextMetrics Lib "gdi32" Alias "GetTextMetricsA" _
(ByVal hdc As Long, lpMetrics As TEXTMETRIC) As Long
Declare Function GetBkColor Lib "gdi32" (ByVal hdc As Long) As Long
Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, _
ByVal crColor As Long) As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _
ByVal hdc As Long) As Long
Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, _
ByVal crColor As Long) As Long
Declare Function SetTextAlign Lib "gdi32" (ByVal hdc As Long, _
ByVal wFlags As Long) As Long
Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, _
ByVal hObject As Long) As Long
Declare Function DrawText Lib "user32" Alias "DrawTextA" _
(ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, _
lpRect As RECT, ByVal wFormat As Long) As Long
Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, _
lpRect As RECT, ByVal bErase As Long) As Long

Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long
Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Public Const COLOR_BTNFACE = 15
Public Const TA_TOP = 0

移动周报:为什么我们出不了IT神童? AWS、VMware和OpenStack谁是赢家? 消息称苹果正在寻找新任CEO取代库克 请别人云亦云 PC仍然重要且活得很好 比预想晚几年!IBM x86服务器或终将卖给联想 App推广的节操呢? iMessage垃圾短信产业链暗访 Apkudo CEO访谈:免费为Android开发者提供测试 Web API核查表:设计、测试、发布API时需思考的43件事 开源Android构建工具Buck 速度超Ant两倍 从史上八大MySQL事故中学到的经验 OpenStack Heat向应用市场更近一步 初创公司Ionic Security:云安全必须与时俱进 谷歌董事长:一年后消费者才能用上Goolge Glass Windows 8.1重新推出的“开始按钮”毫无意义 手眼并用 代码泄露三种Google Glass手势操作 Google新论文 CPI&#178;:基于Linux的世界级跨数据中心服务器CPU监控 20款非常实用的Web工具和资源列表 数据库界大事件 随机写性能巨好的TokuDB开源了 CMDN Club 26期:数字渠道营销主题沙龙 暴强:用iOS设备控制的HTML5“小蜜蜂”游戏 Leap Motion:500元体感,精确到0.01毫米 大事件:三大运营商将发布融合计费SDK 再培养一个扎克伯克:六款适合儿童上手编程的App 首届中国软件工程标准高峰论坛:软件开发的新机遇与挑战 Verizon研究显示:中国成为2012年度网络间谍攻击的主要来源 Clang宣布全面支持C++11标准 北大陈钟:SEMAT—中国软件工程发展的新机遇 超华尔街预期:苹果第二财季营收为436亿美元 跨平台游戏引擎Spaceport已被Facebook收购 文科生开发GPU数据库 性能超传统数据库70倍 开发者赚了90亿:从苹果Q2财报,看iOS生态 很少有人问的问题 请教学习路线,散分 一个困扰我很久的难题?(高手帮忙啊) 告诉帮我解决文件关联问题!! 请问如何添加备注字段,用sql server建表,有一备注字段为text类型。。。。。。。。。。。 函數啊﹐怎么么搞的?氣死人了。一百求救。 关于数据库的问题 生命游戏问题!!!!那位大哥指点迷津 VB做的免费软件,大家随便下载!给我提点建议也行! RichEdit问题,急!!! 关于IF语句。我是新手我理解不了请高手帮我,谢谢 请问oricle 有没有像sql server 2000 的企业管理器一样的工具? 关于richedit的问题! 誰能告訴我﹐我給他發又發(88分求找) asp.net就没有什么不足吗? 问题:高级程序员的《数据结构》该怎么复习?请有经验的人给指个明路,多谢! 如何将中文文件存入数据库?是文件,不是表单,谢谢!! 怎样才能得到CDialogBar的控件(如Button)的消息及消息处理 子数据窗口中为什麽filter条件不起作用?急急!!在线等!!!! 菜鸟来了! 怎么把Demo_Adhoc分到两台机上运行 数据库更新 how to 用 insert into 把一个.zip文件保存进数据库?? 请大家推荐一个CD机吧!!!! 急,NOTES与SQL SERVER的问题 asp实例 我的Access库文件原来大小是6.78M,我清空所有记录和减少很多记录时,为什么大小没改变? 关于delphi动态加载控件,在线 代人提问:请问.dcu文件是干什么的?如何才能生成该类型文件。 怎么响应Enabled属性 asp.net做网页,运行后,<asp;....></asp:...>字段仍然存在?? 请教VB高手们一个高难问题! 请问,存储过程在VC如何调用,用ADO,ODBC。 怎么实现这个SQL? 没事瞎问~~~黑客软件能走向海外吗?(比如扫描器,键盘记录器,木马等) windows protect --error ,我装不了系统啊 DbEdit里的数据用adoquery如何更新才好? 有没有办法调试存储过程? 我是个菜鸟,请教大家,VC++和C++ Builer的优点和缺点。 请问如何改变显示文本的颜色? delphi 6 的补丁包 浏览器为NS6时如何获取屏幕分辨率? 如何控制 ValueListEditor ?有一个Help这样写道: 各位斑竹请进来,紧急求救呀!!!!! 是否可以把用asa建的数据库转变为access? 在java中如何压缩和解压文件夹? 如何在运行期把最大化,最小化按钮灰掉!? 求一句广告词 请教一个毕业设计的问题,关于在c++buileder中OLe对象调用:怎么样把word中的表格导入到数据库 请问如果在首页中加入一个论坛的登陆对话框? 这样的IIS错误信息,是什么意思,怎么解决? 将氨水慢慢滴入硝酸溶液中;将硫酸慢慢滴入氢氧化铁胶体中,现象分别是?化学方程式分别是? 用什么作流动相才会让甲醇在液相色谱中响应? 氢气还原氧化铜注意事项题目是这样的氢气_____出_____归,酒精灯______到______退 现有反应物:硝酸银溶液、锌粒、碳酸钙、水、石灰水、生石灰、盐酸、中(1)有单质生成的分解反应是(2)有气体生成的复分解反应(3)有热量放出的中和反应 硫酸氢盐溶液与甲醇反应吗? 氢气还原氧化铜 现有反应物:硝酸根溶液、锌粒、碳酸钙、水、氢氧化钠溶液、生石灰、盐酸、根据下列要求各写出一个化学反应方程式(反应物可重复使用)(1)无气体生成的置换反应(2)化合反应(3) 【甲醇与乙醇】在硫酸做催化剂加热条件下反应如何? 电解水时()发生了改变,分解成(),这些()又重新组合成新的().这个变化属于()变化 热水壶烧水都有声音么?新买的热水壶烧水声音很大.有相关电器方面知识的人可以和在下讲解下, 怎么鉴别 乙烷 乙烯和环丙烷啊 在电解水的反应中什么发生了变化?什么没有改变 乙炔生成苯环是什么反应? 硫化亚铁(FeS)+硫酸+氯酸钠生成二氧化氯的反应方程是怎样? 氧化汞 氯酸钾 氧化镁 氩气 的化学式分别是什么?谢谢! 某含有苯环的烃,相对分子质量是乙炔的4倍又知该烃能使溴的四氯化碳溶液褪色1.确定该烃分子式和结构式2.写出该烃与溴的四氯化碳溶液反映的化学方程式 在盐酸中加入足量下列物质后,溶液的pH不会显著升高的是 a氢氧化铁 B碳酸钾 C硝酸银 D氢氧化钠 分析化学中,反相—液相色谱,流动相极性越小分离度怎么变化? 从Cu,O2,NaOH,盐酸,CaCo3,KMnO4,硝酸钠,氧化钙,硝酸银选出合适的, 分解,置换,有沉淀生成的复分解反应 现有铜,氧化铜,氢氧化铜,碳酸钙,硝酸银溶液,盐酸,各取少量两两混合则可发生的化学反应共有 个,其中有 个反应可以生成水;有 个反应属于置换反应. 反向色谱中为什么流动相极性增加保留时间变大 如何证明氯化氢中既有氢离子又有氯离子?氯化氢和硝酸银反应呈现他的酸性吗?盐酸和氯化氢的区别? 氩气化学式有没有角标二那氦气呢,有没有角标 氢氧化钠和氯化氢的异同点根据物质组成和性质 帮忙分析一下这张琼脂糖凝胶电泳图啊这是我昨天提完质粒后做检测的一张图,一共十六个样,没点maker,其中最左边两个点样孔没有点样.谁能帮忙分析一下为什么最左边两个孔没点样也会发亮 5个氩气分子的化学式?难道氩气不是由原子构成的吗?化学试卷的第一道题就让我无从下手. 为什么反相色谱中的流动相极性越小容量因子越小呢?我总觉得极性越大对样品的吸引力越大,越容易洗脱,或者更难挂在固定相上,怎么会极性越小,容量因子越小呢? 甲醇和甲醛反应生成什么 请问不同杀菌条件,如65℃,30min; 75℃,15s; 75℃,30s;75℃,60s对牛奶酸度的影响有何不同,及原因, 氢氧化钠和氯化氢化学试 帮忙分析一下下面这个琼脂糖凝胶电泳图左一为marker,检测ApoBVNTR基因多态性的,从这张图里能分析出什么.可以从哪里入手进行实验讨论 . 食品中总酸度挥发酸和有效酸度的关系 反向色谱,非极性色谱和液液色谱的区别?反向色谱固定相极性小,样品会有吸引,然后洗脱,那非极性色谱和液液色谱呢?非极性了,对样品中的东西不是没有吸引了,那不就成为了支撑物,不是成了 两分子甲醇如何生成两分子甲醛?两分子甲醇如何生成两分子甲醛?(我要方程式) 如图: 1、牛乳酸度2、总酸度3、灰分4、恒重5、总糖6、粗脂肪7、单色光8、检样9、大肠菌群10菌落总数 高效液相色谱流动相为什么要用极性化合物 形容后悔的好词好句 什么动物冬天去南方 氯化氢通到氢氧化钠有什么现象如题 还有为什麽 为什么配位原子电负性越大配合物越稳定 某温度下,将1 mol CO和3 mol H2充入1 L的密闭容器中,充分反应后,达到平衡时 c(C0) =0.1 mol/L.若保持温度和体积不变,将起始物质的物质的量改为A mol CO、b mol H2 ,c mol CH3OH,欲使开始时该反应向逆反应 制取氢气用排空气还是排水法 做配体的配位原子如何确定?是不是电负性越大就是配位原子?CO,硫酸根 做配体时配位原子是什么? 溶剂回收时如果加热温度太大,溶质跟溶液一同在加热过程中蒸出,还是先蒸干溶液再蒸发溶质的?有没有哪些实验可以测试到? 我想知道,某溶液里,溶质熔点为120,沸点为150而该溶液的沸点为50 1, 电压表和电流表在电路中是否等于一根导线? 如何判断原子电负性 并联电路中怎么算总电阻比如说3欧的电阻和4欧的电租并联,那么电路中总电阻为多少 有一串小彩灯,其中有一个坏了,请你用一根导线或一个电流表或电压表进行判断、 三种方法都写、导线的方法我已经知道了,请帮忙写一下怎样用电压表和电流表进行判断、并说明一下为什么 影响碳原子电负性的因素有那些?尤其从杂化角度 燕子为什么飞向南方? 液相色谱C18柱堵塞后如何冲洗柱子,能用纯水 可以说电负性就是原子吸引电子的能力吗?为什么不说是离子吸引呢? 并联电路的总电阻为什么是这么算的?并联电路的总电阻为:R=R1R2/R1+R2那为什么不是R=R1+R2呢一楼回答的我知道但我还是不懂为什么他要这么算本人有点笨 C18柱15厘米的粒径是5微米的,流动相是甲醇水,一般最大压力是多少啊 对于某种组分,为什么在荧光最大激发波长和荧光最大发射波长处荧光强度基本相同 为什么sp杂化碳原子比sp3杂化碳原子电负性大?s成分越多电负性也越大? 燕子在秋天的什么时间飞向南方 制取氢氧化铁胶体的离子方程式.高手来 小弟在此谢过... 为什么乙炔分子中两个碳原子采用sp轨道? 并联电路电阻是怎么计算的呢?如题
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘