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

可以直接用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
VMware掌控Puppet 老用户会被锁定吗? 试图领导创新:三星创新中心11亿美元建基金 基于WebRTC Chrome与Firefox实现视频通话 将OpenStack私有云部署到Hadoop MapReduce环境 Web设计师必备的10款最佳排版工具 诺基亚CEO谈平板计划 Android为候选系统 244亿美元!戴尔公司正式完成私有化 对抗苹果 Facebook或推Find My Friends应用 前谷歌工程团队负责人:如何打造一个完美的产品 好消息!Google Drive可存储共享JavaScript等网站 Android Rivers:用Kotlin语言写出的新闻应用 辞旧迎新 老牌游戏开发商的移动进化之路 iSuppli:硬盘市场持续萎缩 大数据应用成重要市场 全球最大校园Hackathon:失败后,你能学到什么? 走进Evasi0n,越狱黑客如何拿到iOS权限 提升服务扩展性和冗余的八个编码方向 分析数据预测未来?数据挖掘绝不是大公司的专利 揭秘LinkedIn数据科学家如何工作 为什么响应式设计对SEO有好处? SpaceX团队:想登陆火星吗?学好C++吧 可穿戴设备:越来越清晰的苹果iWatch 苹果设计师:开发者们的应用图标设计对了吗? AWS兴起之路:尚未成功 仍需努力 John Carmack:我们为什么不开发Linux游戏 最具创新力公司50强:耐克居首 Web如何成为另一个应用商店 Adobe发布Photoshop1.0.1源代码 大数据时代正在到来 微软CFO:我们的移动战略没有“B计划” TIOBE 2013年2月编程语言排行榜:历经十月Java重返第一 为让用户亲身体验产品 谷歌年底或开零售商店 有哪位知道在 Windows 2000 下 锁定计算机时应用程序可以得到什么消息啊? 急!!关于数据的导入导出!! Cells不被VB支持吗? 获取字段类型 如何将DataGrid1中的数据打印出来, 如何使程序自动修改CEdit中的文字? 请问在.NET类库中有这样的类吗? 如何知道某个表格被锁 求助capboy等网络视频播放高手!!! 菜鸟问题:在VC中用ALTER TABLE指令需要什么头文件? 请高手帮忙,感觉难度很高 大家做GUI时有什么好用又免费的日期控件呢? 在javabean中用sql server2000的jdbc驱动连不起数据库! 添加图片到数据库中,奇怪现象! 如果我已经得到了一个DOM树, 我第一次运行HTML HELP时,new怎么会是无效的? 我的 程序在调用FORM.ACTION的用法不正确。能告诉我怎样用它 怎幺样实现一对主从表的数据库基本操作?用ADOQuery连接SQL2000. 有关统计打印的问题 一个关于用VB调用C++builder编写的DLL文件,DLL的API函数中存在函数指针。请各位高手给点意见! 大专生如何考研?(up有分) ★★ 为高兴而送分 ★★ 关于打印的问题,请各位帮忙 请问应该用何种信用卡 利用INTERNET远程连接问题 移动办公相关问题?如在两台机器里编写同一段Web程序。 怎样将oracle sql中的in语句改为exists语句? 求教win 2000双网卡上宽带的问题,请高手帮忙! win2000,给文件改日期的命令是什莫??? 为什么我的背景图片显示不出来? 请问如何在DAO的SELECT语句中使用COUNT等运算符? 请教:请问在程序中怎么在Check box 前边的小框上打上对号 老板让我一个月内学会vb,大家说可能吗? 我装了project 2000后,原来的office 2000只能用50次了,怎么回事? 请能提供DES和RSA算法的源程序呀,vb或VC的都行,最好是VB 请问如何让一个报表的内容同一个DBGrid一致,可以自由设置字段的是否显示? 我用vb新建了一个文件请问如何能双击就能打开我的程序,就跟word一样例:我新建一个kk.doc 只要双击kk.doc 就能打开word 使用Enumwindows的问题 我的jsp页面能够运行但是WEBLOGIC显示了<2002-9-2 上午10时41分13秒> <Error> <HTTP> <Connection failure 大家是怎么看下载来的MFC的程序原代码的? 在JAVASCRIPT中,我怎样用语句控制一组选钮中那一个被选中? 如何对 redhat-config-network 进行配制? 各位师兄:哪里可以下载讲Delphi6多层结构的教材?很急!!!! 小问题 看完了钱能的《C++程序设计教程》继续深入下去该找什么书来看看呢? 关闭窗口 除了onunload 是否还有其他事件? 为什么我的电脑每个目录下都有一个folder文件? 请教一下:delphi6中nmftp的用法 急!!!水晶报表问题 用代码把数据窗口指定到某一打印机打印? 如何配置jConnect连接Sybase数据库?需要安装jdk吗? 酒精蒸馏塔有无清洗办法 一个圆锥形沙漏,它的底面周长12.56米高1.8米,用这样沙子在8米宽的公路上铺3厘米后的路面,能铺多少米? 90度直径595毫米,焊接弯头展开图 什么情况下埋地钢管做阴极保护? 液体其中都有水吗?是不是所有的液体中.都含有水? 平均年龄69.9±19.如何计算?公式是怎样的? 手表生锈如何清洗表带 水是( )( )( )的液体. 9 13 9 19 19 25 15 21什么意思 一个圆锥形的沙漏高3分米,底面周长12.56分米,里面装满了沙子,沙子每分钟流出6.28立方厘米的沙子,一共要多少分钟才能把沙子漏完? 水是一种怎么样的液体 2.1.15,26.9:23.15,1.9,14.19,15!请速度点帮半忙给我翻译下. 什么是塔釜式蒸馏 想知道工艺品一般用什么材料制作才不会腐蚀? 毛泽东写的《菩萨蛮·大柏地》中的“彩练”、“苍”、“急”和“装点”分别是什么意思? 呈液态的非金属元素是什么?呈液态的金属元素是什么? 离心风机型号为9-19-7.3各数字代表什么,急盼回复 普萨蛮,大柏地里的彩练是什么意思? 水是液态非金属元素吗? 怎么计算阴极保护的保护距离 彩练的意思是什么 “氵"字旁的是液态非金属元素,例如________、_________等 用什么化学试剂可以快速腐蚀掉金属?越快越好 我要腐蚀断一根不锈钢管我什么都能搞到 说出来我去试验~ 什么样的制氧机适合高原地区使用 甲烷转化为合成气的方程式怎么写 有什么化学品能快速腐蚀木材 在高原使用哪种制氧机好 日本地震,对我国进口石油量有影响吗?石油价格会上升吗? 甲烷与录气反应生成什么 通过气体交换,空气中的氧气经过()的系统和()系统,最终到达人体的每个()中,氧化分解有机物,获得人体各项生命活动的() 怎样去除白色橡胶手表带上的污垢前几天买了块手表,挺喜欢的,本来表带挺干净的,可是今天出去玩了一趟,回来上面就占了一些黄色的东西,怎么洗也洗不掉,急死我了,救救我的爱表! 已知直线的点斜式方程是y -2 =x - 1 ,那么直线的斜率是?倾斜角是?倾斜角是135°,在y轴上的截距是3.(求直线的斜截式方程)急!求求各位帮帮忙! 黄土高原的形成是由于风力侵蚀还是流水侵蚀,请说明理由 日本地震使得现在的电脑价钱涨了? 一条直线的斜率k=2,且过点A(2,-1),此直线的点斜式方程为( ) 大苏打的化学名称怎么读? 如何去除手表橡胶带上面的污垢 已知直线点斜式方程是:Y-2=X-1 那么此直线的斜率是多少? 倾斜角是多少? 请问小苏打和大苏打的化学名和俗称 请问什么液体导热性最差?或者是一些非金属固体的也行,常见的? 请问初一上生物测试题有人了解的说下吧,不好意思,麻烦给位朋友了6O 两个二极管反向串联接地? 常温下液态的非金属是什么? 已知直线的点斜线式方程是y-2=x-1,那么此直线的斜率是——,倾斜角是—— 4007二极管串联有什么作用 打心底麻烦大伙7j 请问初一上生物测试题有人了解的说下吧,不好意思,麻烦给位朋友了5O 四个二极管串联起什么作用 打心底麻烦大伙0Y 已知两点A(-1,2),B(m,3)(1)求直线A.B的斜率k与倾斜角a;(2)求直线A.B的方程. 小苏打和大苏打的化学成分 有沼气热水气吗 请问谁知道帮我找一下初一上学期的生物练习题Y熟悉的看下吧,不好意思,麻烦给位朋友了8Ph 用什么区分硫酸钠和稀盐酸 金属手表表带如何清洗? 溴是液态非金属单质 那水是吗 稀盐酸溶液和稀硫酸溶液用硫酸钠溶液鉴别对不对,为什么 如何去除手表金属表带间的污垢 液态的水叫什么? 请问弯头体积怎么算?1727*18mm 90°长半径弯头 对焊 ,请算出体积!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘