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

可以直接用API改变textbox的扩展样式-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
可以直接用API改变textbox的扩展样式-VB资料
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 6135
ClientLeft = 165
ClientTop = 735
ClientWidth = 7080
LinkTopic = "Form1"
ScaleHeight = 6135
ScaleWidth = 7080
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command2
Caption = "Command2"
Height = 375
Left = 4800
TabIndex = 4
Top = 5040
Width = 1455
End
Begin VB.PictureBox Pic1
BorderStyle = 0 'None
Height = 495
Left = 960
ScaleHeight = 495
ScaleWidth = 2655
TabIndex = 5
Top = 2880
Width = 2655
End
Begin VB.Timer Timer1
Interval = 10
Left = 240
Top = 3120
End
Begin VB.CheckBox Check1
Caption = "选择,再看按钮的文字,然后不要选择"
Height = 855
Left = 960
TabIndex = 1
Top = 3600
Width = 4575
End
Begin VB.CommandButton Command1
Caption = "歪歪的VB技巧演示"
Height = 1695
Left = 360
TabIndex = 0
Top = 960
Width = 5295
End
Begin VB.TextBox Text1
Height = 495
Left = 1080
MultiLine = -1 'True
TabIndex = 3
Top = 5040
Width = 2415
End
Begin VB.Label Label1
Caption = "Label1"
Height = 375
Left = 600
TabIndex = 2
Top = 240
Width = 1215
End
Begin VB.Menu mnuChange
Caption = "改变样式(&C)"
Begin VB.Menu mnuFlash
Caption = "FlashWindow(&F)"
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'这是我机子中的一个例子,包含了你说的那个功能,我想就没必要再改了,凑合着看看应该可以吧:)
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
'Alignment constants
Private Const BS_CENTER& = &H300&
Private Const BS_LEFT& = &H100&
Private Const BS_RIGHT& = &H200&
Private Const BS_TOP& = &H400&
Private Const GWL_STYLE& = (-16)
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_TRANSPARENT = &H20&
Private Const WS_THICKFRAME = &H40000
Private Const WS_BORDER = &H400000
Private Const WS_EX_CLIENTEDGE = &H200&
Dim FlashYn As Boolean, Yn As Boolean


'API Calls
Private Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long)
Private Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Const SWP_DRAWFRAME = &H20
Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1
Const SWP_NOZORDER = &H4
Const SWP_FRAMECHANGED = &H20 ' The frame changed: send WM_NCCALCSIZE

Private Sub Check1_Click()
'Declare Variables
Dim tmpValue&, ret&
Dim Align&
'Check if the state is checked
If Check1.Value = Checked Then 'Yes

fAlignment& = BS_LEFT
tmpValue& = GetWindowLong&(Command1.hwnd, GWL_STYLE) And Not BS_RIGHT
ret& = SetWindowLong&(Command1.hwnd, GWL_STYLE, tmpValue& Or fAlignment&)
Command1.Refresh
Else 'No
fAlignment& = BS_CENTER
tmpValue& = GetWindowLong&(Command1.hwnd, GWL_STYLE) And Not BS_RIGHT Or BS_LEFT
ret& = SetWindowLong&(Command1.hwnd, GWL_STYLE, tmpValue& Or fAlignment&)
Command1.Refresh
End If
End Sub



Private Sub Command2_Click()
'Declare Variables
Dim tmpValue&, ret&
Dim Align&
'Check if the state is checked
tmpValue& = (GetWindowLong&(Text1.hwnd, GWL_EXSTYLE)) 'Or WS_EX_CLIENTEDGE) 'And Not WS_BORDER
ret& = SetWindowLong&(Text1.hwnd, GWL_EXSTYLE, tmpValue&)

tmpValue& = (GetWindowLong&(Text1.hwnd, GWL_STYLE) Or WS_THICKFRAME) 'And Not WS_BORDER
ret& = SetWindowLong&(Text1.hwnd, GWL_STYLE, tmpValue&)
SetWindowPos Text1.hwnd, Me.hwnd, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE Or SWP_NOZORDER Or SWP_DRAWFRAME
Text1.Refresh
End Sub

' -> VB WorkShop 2000
Private Sub Form_Load()
Dim tmpValue&, ret&
FlashYn = False: Yn = False
'tmpValue& = GetWindowLong&(Me.hwnd, GWL_EXSTYLE)
'ret& = SetWindowLong&(Me.hwnd, GWL_EXSTYLE, tmpValue& Or WS_EX_TRANSPARENT)
tmpValue& = GetWindowLong&(Check1.hwnd, GWL_EXSTYLE)
ret& = SetWindowLong&(Check1.hwnd, GWL_EXSTYLE, tmpValue& Or WS_EX_TRANSPARENT)
Command1.Refresh
Check1.Refresh
Me.Refresh

End Sub

Private Sub mnuFlash_Click()
FlashYn = True
End Sub

Private Sub Text11_Change()

End Sub

Private Sub Timer1_Timer()
If (FlashYn = True) Then FlashWindow Me.hwnd, Not Yn
End Sub
PayPal首席安全官:靠密码验证身份即将寿终正寝 DRM你又赢了:其API纳入HTML5标准 豌豆荚王俊煜:洗白白其实是一个计划外的产物 抢Google等巨头生意,纽约大学小伙挖掘并出售自己数据 noBackend:前端优先的开发模式 C、CPP const 详解 三星5G技术获得突破性进展 未来传输速度可达10Gbps 5月14日:1984年美国社交网站Facebook创办人Mark Zuckerberg出生 Chartkick:一行代码即可绘制出漂亮的图表 用友UAP将打造开放平台 建应用商店销售企业级应用 共享软件营销:如何将你的产品推向海外 谷歌使用Debian Linux作为GCE的默认操作系统 大数据?别唬人了!我们真的需要盲目烧钱追求大数据吗? 日本社交手游公司GREE巨星陨落 中国区全员被裁 战歌:85后手游开发团队背后的故事 分秒钟做款App:细数国内外在线DIY应用网站 指点传媒CEO专访:紧握二三线市场用户命脉 专访Waygo创始人:白切鸡怎么翻译? 探究共享软件海外营销新策略(西安站) 讲师秀8:车音网沈康麒和他的智能驾车服务 数据可视化独领风骚:看这6家初创公司如何玩转大数据? 最新研究显示:IE10防恶意软件能力比Chrome等浏览器都要强 Windows Blue正式定名Windows 8.1 对Windows 8及RT用户免费 Testin云测试破1000万次 自动化测试成趋势 接手Android后首次接受媒体采访 Sundar Pichai谈Android未来 C语言实现二分法查找 让开发者高效编程的10个新框架 Google Analytics中显示访客停留时间为“0”的秘密 大数据之惑 麻省理工三位物理学家自建数据库服务Cloudant 融资1200万美元 网页浏览器进入再造新时代 如果主键和其他表的外键相连是不是没有办法删掉其中某些表的数据吗? 求助:xls用odbc不能编辑,出错:Syntax error or access violation PE格式的资料你有吗? VB 中的类模块与模块之间的联系是什么? 怎样从windows访问linux的ext3分区? 关于CFM-Resources免费空间(asp+cf+access+30M)的问题!100分 消息接收后拆分,毕设急!!60分已经是倾我所有了 热心的VC大虾,请多帮忙 请问如何用JAVASCRIPT获取服务器时间,并以字符串形式输入,如:200206021943,谢谢! ADO访问access数据库,怎样删除一条记录???? 关于字符串转日期型的值的问题 Tadoquery中参数返回的问题 请问各位高手门,现在公司的数据库编程普遍用哪种模式ADO或ODBC? 如何在CFormView中添加位图背景?? 谁来帮我看看这几行程序!我实在无法解决,谢谢! 请问如何自己编程使用Logitech QuickCam 人工智能的问题(乜人都要睇) 400分题目问题要解决了就立刻、马上、立即、给分! 菜鸟问题c++中清屏函数在哪? 请问哪里有c#语法的速查手册,最好有与vb的对照版? ISA声卡,CD与ME! 帮帮忙,一个很简单的sql语句 机器的电源关不了?(重谢!) 对话框算窗口吗? Delphiz中的Excel报表问题(十万火急!!!) help 请各位帮忙介绍一本linux的入门教材,多谢!! 菜鸟送分了!(报表打印问题) 学编程N个月了,我今天要学会HOOK到底是什么函数怎么用的,想吐血的先近来~~~~ 报告D6的一个BUG 要编写象boot.ini这样的 文件 我 应该学习什么 project工程文件????? 杭州的Delphi程序员,我在华星。留下QQ和Email吧。 求救一个语句 如何实现数据库的事务操作,对记录进行编辑?高分相送。 通信 ISP拨入电话,北京地区还有八位的吗? 毕业设计的朋友进来签到?(我做个统计) 如何引用上一级对话框 怎样获得主板BIOS版本\厂商号,版权? 中科院软件学院的项目经理硕士怎么样?听说师资力量很好 小问题:如何获得字段protect的值? 有可能在游戏中,例如星际,弹出对话框吗? oracle监听配置 如何实现 透明贴图--屏蔽图片背景颜色,显示图片主体 和 底图背景? 我想看世界杯,但电视偏偏坏了,还正好从开赛的时候开始坏,真是受不了啊,天哪 世界杯开始了。。没地方看球。。惨啊。。 请大家讨论中专生与 VC++(UP 者有分!) 一个极菜极菜的代码问题。。。。---此恨绵绵无绝期 New transaction cannot enlist in the specified transaction coordinator 我很遵守纪律的.为什么我的信誉分数少了几分不公平啊! 大气污染主要包括些什么 已知光从一种透明物质进入另一种透明物质的界面时,既发生反射又发生折射.图是光从空气斜射入玻璃中的光路图,已知∠1=∠4,FG⊥DE,则界面为,法线为,入射光线为,反射光线为,折射光线为 ,入 矩形ABCD内接于直径为4的半圆,试求矩形面积S的最大值. 标准气缸工作温度如题,标准气缸可在多少温度范围内工作. 光在透明物体中会反射吗 液体不能压缩吗? 蓖麻油酸和甲醇反应产生蓖麻油酸甲酯需要什么条件?如题 大棚种的西瓜甜吗? 钟乳石每一厘米形成需要多久 在一段双轨铁道上两辆火车同时驶过,一车速度是20米每秒一车速度24米每秒,车长分别是180米160米,求两...在一段双轨铁道上两辆火车同时驶过,一车速度是20米每秒一车速度24米每秒,车长分别是 三点水加火和月拼一字还有拼好了怎么读、谢谢. 钟乳石怎样形成的 在一段双轨铁道上,两列火车迎头驶过,A车的速度为20m/s,B车的车速为25m/s,若A车车长200,B车长160, 提手旁和三点水旁是什么意思 现在的西瓜是大棚的吗? 氢气和重氢是同一物质吗 光纤 玻璃和塑料哪个传输速度快,还有谁能举出来下传输速率最快到最低的介质.谢谢 怎样建设西瓜大棚 汽车的油浮子在哪拿出来看 透明玻璃与透明塑料的区别? 问圆的面积和它的半径;正方形的面积与边长;长方形的面积一定,它的长和宽.以上那个属于正比例函数关系 对于每个人,特别是青少年来说,在现实生活中如何做到勤俭节约? 用红绿两块玻璃或两张塑料透明纸分别放在你的左右两眼前,如果你只睁开一只眼,眼前看到的白纸会是什么颜色?当你睁开双眼是,眼前又会是什么颜色? 正方形和三角形,正方形的边长和三角形底的比是3比4,边长与高的比是3比4,正方形和三角形的面积的比是多少? 现在人们的生活已达到了良好的水平,为什么还要提倡勤俭节约?只要你知道,就请你踊跃回答. 石钟乳如何形成的 光可不可以压缩成液体的?恩恩恩、谁会,赶快说. 被污染的河流可能含有哪些化学物质 如果地球被破坏,我们的生存方法? 摩尔质量 等于质量数? 透过绿玻璃的光是什么颜色 现在的人生活好了.但是环境就给破坏了.人到底还能在这个地球上生存多长时间? 摩尔质量等于什么, 在无任何光源情况下,绿色光照射在蓝色透明玻璃上,看到玻璃颜色变为什么急 充电时把铅蓄电池的负极接在外电源的正极这句话错在哪?充电时,不是阴极接外电路的正极吗? 蒸馏水中含氧分子么 有一块光屏,有一块绿色的透明玻璃,一束红光照射在绿玻璃上,绿玻璃成什么颜色?为什么?透过绿玻璃,在光屏上能看到光吗?什么颜色的?又为什么?把光屏换成红纸,看到的纸是什么颜色? 在铅蓄电池充电过程中,为啥正极负极质量减少 蒸馏水中不含氧…? 三点水做偏旁一共十三笔画的字有哪些 铅酸蓄电池为什么低温下正极的充电接受能力比负极好? 电池充电过程中电流由负极流向正极的吗? 如何除去水中的氧气和二氧化碳 铅酸蓄电池以什么为负极,什么为正极还有什么为电解质 我用不稳定电压给电池充电要防倒流,那么是把二极管安在电池正极还是负极,还是两端都要分别接? 显除了加三点水还能加什么偏旁为一个字在组成五个新字 若矩形ABCD的两个顶点A.B在x轴上,C.D 在函数y=-2x^2+4x+2(0maobashi求导得:S'=-12K^2+8 化学电池充电时阴极阳极和放电时正负极的判断 一个煤矿,9月份产煤1.56万吨,__________10月份产煤多少万吨?(用方程解答)就是补充条件在列式计算 某瓜农采用大棚栽培技术种植了一块地的良种西瓜,这块地产西瓜约600个,在西瓜上市前该瓜农随机摘了10个成熟的西瓜,称得西瓜的质量如下:估计西瓜产量.我,早就,看懂了……………… 哪些科学技术发明,它们为人类社会带来了什么样的变化好的变化 某煤矿计划全年采煤120万吨,第一季度只完成了计划的20%,以后每月平均采多少万吨煤,才能超额10%完成任务. 请问煤化工中的甲醇和合成氨生产流程有什么区别啊?都是先煤气化》?然后合成氨或者甲醇?气化装置有不同吗?合成装置不一样? 把长为a的铁丝折成矩形,设矩形的一边长为x,面积为s,求s与x的函数关系式,并求出s的最大值 谁有合成氨工艺的探讨的论文 合成甲醇与合成氨的共同点与不同点? 求在y=-x^2+4x 函数图像中 设矩形ABCD的周长为L求L最大值 空气污染主要有哪些 光射到透明物体的表面上会发生反射吗 在一个等腰直角三角形内部做一个矩形ABCD其中等腰三角形腰长为10厘米,则矩形ABCD面积最大值为要详细 我给10分我会了 不用了
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘