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

可以直接用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
CDN前景光明,SDN发展的驱动力源于对产业的颠覆 Android、WP双系统若要发展 难题不断 即将于下周召开的微软Build 2014六个愿望清单 【独家专访】腾讯陈磊:你不知道腾讯对开源有多爱 地下数据交易网站Rescator被黑,疑似Target报复 Spark独门秘籍:打造结构一体化、功能多元化的高效数据流水线 【走进支付宝】重磅嘉宾!历届“走进企业”回顾 【OSTC讲师专访】腾讯TDW项目:开源的分布式数据仓库 ID爆发的物联网时代,我们该如何管理手中的数百个账户 取代Google Maps?苹果大幅优化Apple Maps用户体验 中交兴路系统架构师杨晓明:Hadoop+Storm+ HBase…,打造交通行业创新型服务 雨果&#183;巴拉的第二春:我与小米的那些事儿 为什么Android Wear能统领智能手表领域? LinkedIn缘何抛弃Ruby,转投NodeJS怀抱 【OSTC讲师专访】九秒社团李明:开源对游戏产业的渗透与帮助 IBM 2014中国论坛:挖掘新互联网时代下“智慧企业”的发展之路 Facebook工程部副总裁Cory Ondrejka谈企业在早期所遇到的管理瓶颈 小团队管理工具选择:不需要大而全 《近匠》聚合CEO左磊:基础数据免费,API开放 IDC:HTML5与原生应用之争还将长存 不甘称臣,Google誓要击败Amazon 【OSTC讲师专访】腾讯追风(QcloudMna):开源移动加速SDK Google Go:一门为云而生的编程语言 3月26日:没有Larry Page,就没有今天的Google Hortonworks再获1亿美元融资,Hadoop领域三足鼎立 Intel收购Basis Science,欲拓展可穿戴设备市场 Facebook以20亿美元收购Oculus:虚拟现实将是未来计算平台又一大事件 基于NodeJS的14款Web框架 Hadoop导航:版本、生态圈及MapReduce模型 把黑匣子送上“云” 失联困境能否不再 看看全球十大电信巨头的大数据玩法 哪里可以找到关于OA方面的资料?越多越好,100分送上 高手请进,怎么监测到一个文件将被覆盖 请问如何屏蔽F1查看帮助的功能? 高手请进,怎么监测到一个文件将被覆盖 能提供解码器么? 在tdi中,怎样获取封包ip头? 神啊!救救我吧!!!!(在线等待) 我看SARS危机 求助 我该怎么办??? 管理登陆问题解决?? 一个简单的问题,如何对字符串进行减操作? 谁用过struts,进来交流一下! 请大侠看看俺的小程序,哪里错了(关于不规则图形填充) delphi查询问题(急需) 急求:从硬盘安装windowsxp时电脑出显不能安装,找不到eula!如何解决? 系统分析员VS博士 C#连接Oracle? 关于<BASE> 那里有WebDB下载啊. 在ListCtrl里加类似Combo Box的东西,能实现吗? windows2000下vb的一个小问题~~ 如何把当前路径加入查找路径中?立即给分! 对选用不同的纸张大小,在预览中能看出效果吗? 请问怎么在PB6.0中实现Foxpro(*.dbf)的数据导入,到ASA库中 j2me里怎么才能实现图象的滤镜效果?waiting... CDbSet m_dbSet(NULL)在哪一步才能得到一个CDatabase对象的错针? 新手提问:“镜象”是什么意思 求教,如何配置使性能达到最佳,详情见文 怎样在广域网中提高传屏响应速度?帮帮忙!急啊. 在文件钩子当中如何判断是打开文件操作,还是创建文件操作 怎样在applet程序中显示一幅jpeg图片?该图片存在于c:\image\下。 去年12月是谁发的帖子“做项目经理难么” 关于图层拖拽的问题 我有一块硬盘,迈托4.3G,开格式化分时说错误设备或0磁道损坏,后来fdisk分区,启动无效 这是个什么错误啊~ 第一次做控件不明白 给点指点啊 急求:从硬盘安装windowsxp时电脑出显不能安装,找不到eula!如何解决? 不用的控件怎样从工程中删除? 怎样将一个表中的全部数据追加到别一个表的后面????在线 我做软件这些年 求scjd的模拟题 为什么我连续给一个socket send三次,socket一次就接收完了? 关于HTML代码不区分大小写? 大家看一下这个CListCtrl是啥回事?? Turbo c++3.0怎么使用? 《水园MSN俱乐部宗旨》 ODBC连接数据库的一个问题求教 如何让网页一打开就是全屏模式? 关于打印的问题 怎么彻底卸载linux啊!放分100 如何移动无模式窗体? 原电池 【化学高手进】如图所示的装置中,在产生电流时,以下说法不正确的是A.Fe是负极,C是正极B.负极反应式为:Fe-3e-=Fe3+C.内电路中阴离子移向FeCl2溶液D.电流由石墨电极流向Fe电 做实验时虹吸管提前发生虹吸现象该怎么办? 产业组织结构、产业间及产业内部结构个指的是什么?有什么区别? 为什么浓硫酸能作为酯水解的催化剂阿,它不是会吸水吗,反应不就像逆反应方向生成酯了吗?那都可以用碱干吗还用稀硫酸阿?在说了 我们在写酯化反应时 用的箭头是双箭头,条件是浓硫酸,你 如何在墙上写字(打广告)?毛笔,墨水不行写一下蘸一下太麻烦,请给点建议吧 甲类低频放大器,其晶体管集电极接扬声器,发射极直接接地,基极只接一个负载电阻,那么这个负载电阻怎么确定?(三极管型号是3AX系列的) 罗马斗兽场是用什么石头建成的?雕塑呢? 得了芥子怎么办 组织机构和组织结构的区别 离子方程式为Zn+2H+ =Zn2+ +H2.可以设计成电解池和原电池 那么电离子方程式为Zn+2H+ =Zn2+ +H2.可以设计成电解池和原电池 那么电极可不可能是同种材料?比如呢., 如何看到紫外线 组织结构与组织战略的区别 一直某池(原电池或电解池)的总反应离子方程式是Fe+2H*=Fe*+H2 该池是什么池如果是原电池,为是那么不能是电解池 电磁炉维修串联60瓦灯泡后开机检锅正常,放上锅后灯泡猛亮一下熄灭,便自动关机,重复上述还是一样曾经换过一次IGBT,重新更换了LM339,及驱动管S8550 S8050 有18V 5V 285V电压,各大电容也换过了,还 让秋千永远的不停地荡 需满足什么条件是关于物理的能量守恒定律 右图装置中发生反应的离子方程式为zn+2h 混合物质中怎样萃取我们所需要的部分? 一道化学试剂鉴别的题!下列各物质的无色溶液,不用其它试剂即可鉴别的是!1 KOH Na2SO4 AlCl32 NaHCO3 Ba(OH) H2SO43 HCl NaAlO2 NaHSO44 Ca(OH) NaCO3 BaCl2A.12 B23 C134 D1241 KOH Na2SO4 AlCl32 NaHCO3 Ba(OH) H2SO43 HCl NaAlO2 NaH 居民楼燃气爆炸谁承担后果 PH试纸上滴入NAcl,试纸变什么颜色 水解反应的方程式如何去写我就是不会写那个关于水解的方程式就是不会分析生成什么,而且反应后生成什么!(显酸星还是碱性) 小苏打能不能除去自来水中的氯离子?我家养的乌龟一直用自来水,最近好象生病了,可能是自来水的缘故,我想用大苏打除去水中的氯离子可是没买到,只有小苏打不知道小苏打有什么用,是不是 3/8"NPT FEMALE-FEMALE PIPE COUPING. HOCH2CH2NHCOCH2CH3的水解反应方程 用小苏打去除自来水的氯比列应是多少?百度上不是都说小苏打也能除氯吗? 四氟化四硼的空间构型 长期在高温条件下工作的钢材,会产生哪些组织劣化? 《快乐酷宝》里哪台天文望远镜更好用? 判断四氟化硫(SF4)的分子空间构型?用VSEPR法判断四氟化硫(SF4)的分子空间构型时,LP不等于0,孤对电子位置有两种情况,用斥力最小原理怎么确定 中国木材产量是世界最多的吗? 《快乐酷宝》里的天文望远镜耐用吗? 灯泡L1“3v,3w”灯泡L2“3v,6w”并联在1.5v电源上,那个灯泡亮 电磁炉保险丝处接假负载(灯泡)开机,加热盘怎么弄 神经递质通过受体进入突触后膜,是什么跨膜运输方式 《快乐酷宝》里的天文望远镜,属于哪个品牌的? 灯泡给名牌比较哪个更亮这种题怎么算 L1“6v 6w” L2“3V 3W”并联在某电源上 哪个灯更亮,实际功率之比 2000名儿童参加爬山,海底世界和当秋千三项目,规定每人要参加两项目.至少有多少人参加的活动项目相同 某厂漂白车间需22.4LSO2,化学兴趣小组同学依据化学方程式:Zn+2H2SO4(浓)=(加热)ZnSO4+SO2+2H2O计算后,`取65g锌粒与98%的浓硫酸(P=1.84g/cm^3)110ml,充分反应,锌全部溶解后,即将收集所得气体如数送至车间 试药有危险吗? 非零和对策的特点有哪些? 地下水污染会对农业种植产生危害吗? dna羟基末端怎么念,3’端念什么?5‘端念什么? 请问有没有不带脏字的骂人的话?深奥的,傻子听不懂的那种.有个猪婆一见就打我骂我!还说些骂人的话. 《快乐酷宝》里的天文望远镜很不错,请问是国产品牌吗? 现在北京还有试药的吗? 一些关于什么的深奥的话!就是要那种的话像:叶子的离去,是因为风的追求,还是树的不挽留?就要类似这样的,用物喻人,要经典的,在要些教育人的话,不要太长的, ZN+2H2SO4=ZNSO4+SO2+2H2O 反应一段时间后还会生成什么气体 DNA羟基端是哪个,我怎么觉得是B在遗传病及刑侦破案中常需要对样品DNA进行分析,PCR技术能快速扩增DNA片段,在几个小时内复制出上百万份的DNA拷贝,有效地解决了因为样品中DNA含量太低而难以 深奥点的话别人看不起我 谁给我想一句话要深奥的那种做我座右铭!努力奋斗!让曾经那些看不起我的人刮目相看 《快乐酷宝》里上官绮罗用的天文望远镜哪里有卖? DNA或RNA中的磷酸含有几个羟基,为什么? 深奥的话帮忙写些关于儿童的青年也可以- - Zn+H2SO4==ZnSO4+H2(气体符号比如Zn 有13g 即0.2mol 那么H2SO4是xmol 就是正好跟它反应的xmol 那么x=0.是=0.2吧. 这句话怎么理解,3'端不就是DNA的头吗,(含有羟基) 水处理后的浓盐水可以用磷酸三钠处理防止水垢生成么水师由水处理车间处理后的浓盐水,我们用来冲渣,但存在结垢问题,是否可以用磷酸三钠处理? 怎样制取znso4? 端羟基聚丁二烯的红外谱图及其分析? 橡胶模具O型圈板模哪里开得好,错模量,型腔尺寸一致性,型腔表面粗糙度这些质量都非常好,各位帮推荐一个 Zn经过化学变化得到ZnSO4是得电子还是失电子 共发射极放大器中,集电极电阻的作用是什么 欧盟主席谈隐私 被称暗示美国搞监视是挪威拒绝美国请求 将不接收销毁叙利亚克里叹美政府关门损形象 他国外交官欲德一男子拒绝受审持枪劫持12名亲友终第二届全国茶艺职业技能竞赛在浙江武义吉尔吉斯斯坦:秋至伊塞克湖【高清组图粉丝自制任天堂智能手机惊现网络澳大利亚最老双胞胎长寿秘诀:不与坏男吉尔吉斯斯坦:探访美丽而濒危的猫科动日本茨城县一金属加工厂爆炸 两员工严美国19岁学生欲徒步闯南极 14岁曾澳大利亚最老双胞胎长寿秘诀:不与坏男促政府兑现修路承诺 小镇妇女性罢工拒沙特前高官批评美国中东政策 或联手埃美国北卡州狂欢活动发生意外事故 致5澳男子因涉嫌从15楼阳台扔下未婚妻出沙特前高官批评美中东政策 或联手埃及斯坦福大学举行年度校友聚会 吸引近万澳大利亚最老双胞胎长寿秘诀:不与坏男“诈弹”逼降航班案一审宣判:肇事者获澳政府驳斥境内野火与气候变迁有关引媒财信·渝中城 邀你狂欢桑巴足球夜球王登基 只差一步准备去游泳的你,你的泳衣靠谱吗?藤藤菜每斤上涨1元 西瓜批发价本周涨今日开奖特级服务平价收费 966966家电维读者热议英利国际购物中心 邀你来影院看世界杯萌宝宝驾到新二塘款款而来水果涨价了小馆儿 私 厨 私房菜家门口就可提进口车 还便宜10%10岁女儿当家第一顿就安排吃肯德基 融汇温泉城推全新组团“童话里”工行网络信贷称雄 网贷通余额超300北大医药进军肿瘤医疗 股价一月涨了3逛街LOOK九州国际汽摩城 举办推介会西外老街人行道上 的菜摊没了去森林湿地游玩请穿长裤
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘