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

可以直接用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
诺基亚彻底“卖身” 变“微软移动” 10款高效简化移动开发过程的工具 《近匠》AppCan:打造成云生态的移动PaaS平台 WhatsApp壮举:活跃用户超五亿、日7亿幅照片和1亿个视频 如期而至,GCC 4.9.0正式版发布! 【走近讲师】孙昌勋:容联云通讯构筑通讯能力云平台生态圈 最新版本的Hive 0.13发布,增加ACID特性 开发中的“软”与“硬”:高画质移动游戏开发之道 从国际编码竞赛来看编程语言受众度 AMD迎接变革:加速OpenCL的未来 角逐Hadoop市场,Cloudera与Hortonworks竞争白热化 OpenStack将提供对Docker的支持 Facebook Q1财报:营收25.02亿美元、59%来自于移动 黑客们盯上了卫星,IOActive的惊人发现 开发汽车应用之前,你必须了解的7件事 埃森哲:智能电视潮流,势不可挡 直接拿来用!Facebook移动开源项目大合集 高大上Hadoop技术培训:Hadoop在企业中的应用实战 【走近讲师】新浪丛磊:通过MAE构建企业内部私有PaaS平台 API增长新趋势 消息应用类独占鳌头 软件项目为何会失败? 严澜:搭建高可用的MongoDB集群(二) 微软、思科、Google、Facebook等联合推出CII 狙击“Heartbleed” 这是个神奇的国度:细数五大印度裔IT牛人CEO Atmel CMO Sander Arts眼中的创客运动 Unity“三巨头”:全心全意为开发者服务 全球移动广告现状报告:哪种平台、应用最赚钱? 《近匠》Smart Wallit,钱包找不到了?给它“打个电话”吧 Mozilla新CTO:JavaScript、 Firefox OS专家Andreas Gal 李彦宏发布百度大数据引擎,及与谷歌、亚马逊等类似项目对比 大数据领域,实时打击欺诈犯罪的4个战场 各位,怎样在C#里面声明定长的字符或定长的数据 MFCGridCtrl的问题,很难,但我还是要碰碰运气! 数据窗口中某列(列名为AA)的编辑风格设为DropDownListBox,在脚本中怎样添加DropDownListBox中的内容? 再次请教EJB. 我想做钱能编的《C++程序设计》习题集的网站! 怎样可以得到当前window对应于屏幕的坐标呢 请问在vs.net编写aspx时,怎样才能在写.时,后面的属性或方法能出来 能告诉我ORACLE触发器的语法吗? 怎么画不出图来? 如何定一个文件类型的变量? 水晶报表,多列(分栏)打印 如何使安装程序汉化?我使用的是installshield6.2 谢谢! datagrid中的问题:删除datagrid中某行时出现的问题。 使得窗口总是处于最前的函数是什么,谢谢 请教:如何用Sql实现查询本周发的帖子?? 如何用程序设置ie的页面设置中的页眉,页脚,边距和方向? 为什么要学Java http://Scjp.myrice.com 也许你的一切会改变! 请问怎么修改InstallShield中的可选项,如Typical、Compact、Custom等。 如何.定制通用对话框中的路径及文件名? 我照着网站上的中文输入法提示,做了可没效果 为什么要学Java 看 http://Scjp.myrice.com 也许你的一切会改变! 回答问题,我给500分!! 语音聊天用什么软件好?qq,netmeeting,yahoo message or icq? 为什么不能汇编成功? 各位,帮我一下,非赏急! 数据库快照复制问题,总出错,求救!(50分) 请问这是怎么一回事。win2k(p)+tomcat+jdk1.4.` 在VB中怎样设置Excel单元格的样式?如设置为百分数显示单元格数值? 下拉菜单问题? 请问这是怎么一回事。win2k(p)+tomcat+jdk1.4.` 求救,我财务系统的问题,大大们一定要帮助我呀! 我在调试jsp是的一个错误信息,请指教~~~ 急!!! 一个烦人的问题 关于在应用程序中使用dll中资源的问题 關於並行執行的問題 也许你现在就会改变!! 看 http://Scjp.myrice.com 为什么要学Java 其实我们很封闭! 关于NT的小问题! 请问: 請問哪里有c++的書籍下載? 几个控件重叠在一起,怎样用代码的方式使其中的某个控件在运行时放至最上!?谢! 也许你现在就会改变!! 看 http://Scjp.myrice.com 其实我们很封闭! 如何发布我的网站? 怎样编程在Windows开始菜单的的“启动”栏中添加本程序的快捷方式? 谁有installshield 6.30的license注册文件? 请问:DataGrid在WebForm中明明有数据显示,但用浏览器看就没,为何? 显卡选择问题 ? 也许你现在就会改变!! 看http://Scjp.myrice.com 其实我们很封闭! 一个Acme .....???? 共计350分哟。急急。。。。我在PHP区有发言。但是还连不上SQL SERVER2000呀。。请进 boyqing(阿清):我的问题转到这了! 函数y=-x^2-2x+1的图象可以由什么抛物线,经怎样的平移得到 不定积分1/根号(1+sinx^2) 请问这是什么昆虫或者什么昆虫的幼虫? 若将抛物线Y=2X^2-4x-5向左平移4个单位,再向上平移4个单位,则新图象的函数解析式是? 对根号sinx求不定积分 关于希望情侣之间幸福的句子 不能太矫情的 将抛物线y=x平方+2向上平移1个单位长度,向左平移2个单位长度得到的函数图象解析式是? 请问根号下1+sinx的不定积分是什么? 求情侣诗句!求一4-7句的,情侣名字诗句.男:王超、女:朱向可.请高人指点,又浪漫又经典的 函数y=根号x平方+4x+4的图像是 1直线 2抛物线 3两条直线 4半圆弧 根号下(1-sinx)/(1+sinx)不定积分 一个水壶,倒入3杯水重1100千克,倒入5杯水重1500千克,一杯水重多少千克?水壶重多少千克 将抛物线y=x^2+1沿射线y=1/2x-1(x大于等于0)方向平移根号5个单位,其函数解析式变为? 写2句关于赞美亲情的诗句或名言. 成长的烦恼作文500急! 急求赞颂亲情的名言和诗句!要赞颂亲情的名言和诗句! 两句有关赞美亲情的诗句或名言 公主很高兴.扩句 谁有关于亲情的名言或诗句 给我个作文,一定要自己写,叫《成长的烦恼》600字.快.马上要 “她很快乐” 扩句,扩两处 关于亲情的名言诗句? 不定积分(1/(根号x)(1+x)) dx 不定积分3x^3/(1-x^4) dx定积分-1到2 [1/(11+5x)^3] 定积分1到4 [1/(1+根号x)] 妈妈很高兴(扩句)教教 21 与朱元思书 第一段的主要内容是什么?它在全文的作用是什么? 求不定积分:∫x/[根号(3x+1)+根号(2x+1)]dx 五种夏天会鸣叫的昆虫是谁?就说五种夏天会鸣叫的昆虫是谁,别废话!去你的!刘困困,是别的 八下语文21课《与朱元思书》与朱元思书中直接描给急湍、猛浪的形象,使人恍若亲见的句子是什么?它使我们想起了李白的朝发白帝城中,描些江水的哪些句子? 求不定积分 ∫ dx/(x-三次根号(3x+2)) 夏天的五种会鸣叫的昆虫鸣声不是很响也不是很轻! y=根号x,x=4,x=9,y=o 用定积分就出图形面积 请问光速除了是可见光的速度,伦琴射线,无线电波,红外线,紫外线的速度是否也是这个值? 5种夏天会鸣叫的昆虫5种 八年级上册语文《评价手册》21课《与朱元思书》课后练习选自《水经注》急 无线电波,红外线,可见光,紫外线,X射线,r射线之间有什么差别? 形容全家在一起吃饭很开心的词语 翻译下21《课与朱元思书》 无线电波、红外线、可见光、紫外线、x射线、γ射线他们的传播速度真的一样吗(丝毫没有偏差)? 今天我很高兴,因为和他在一起.这句话的英文是什么? 21课与朱元思书 紫外线,可见光和红外线三种电磁波在真空中的传播速度最大的是 “认识你们很高兴” 在一起的人说这句话意味着他要离开 在一起很久的朋友,其实是要走了 螳螂为什么要蜕皮 无线电波、红外线、紫外线、可见光、X 射线和伽马射线的各自作用列如 红外线的主要功能是热效应 "认识你我很开心,很快乐、跟你在一起让我体会到什么才是真正的人生."这句话英语怎么说? 蚂蚁的村落的作文 螳螂该蜕皮了吗 什么昆虫把卵寄生到别的昆虫哪里 (1)由抛物线y^2=x与直线x=2所围成的图形的面积是(2)已知二次曲线x^2/4+y^2/m=1,则当-2 有没有赞美亲情的名言、诗句,最好是关于祖父母外祖父母或者兄弟姐妹的 成长的烦恼 好词好句好段20个词 10个句子 4个段 有两个杯子,甲杯放了150毫升水,乙杯放了200毫升水,如果在两杯中同时放入同样规格的白糖,甲放30克,乙放50克,搅拌后哪个甜?(写出思考过程) 写出两句有关赞美亲情的诗句或名言 求情侣间很甜蜜的对话,或是句子 当y=1/2时的极坐标方程 赞美亲情的的诗句与名句5句······常见的······易懂的······让我看得懂的······ 这是什么昆虫的幼虫吗 直线方程换算成极坐标方程 y=2 的极坐标方程是什么 根号下(1+sinx) 不定积分 哪里有这种情侣甜蜜的句子类似这样的句子.你男朋友的缺点多不多 像星星一样多 那优点呢 像太阳一样少 那你为什么会选择他 因为太阳一出来星星就消失了 (
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘