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

可以直接用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
SDCC 2015:顶尖技术精英云集 大会日程及首批讲师议题公布 《近匠》专访猿团创始人CEO谢恩明:梦想、未来、改变 《近匠》专访小熊尼奥:从软硬结合到IP合作,AR产品的机遇 W3C启动Web支付标准工作,推进在线结算流程 W3C中国区会员沙龙在京召开 W3C CEO Jeff分享W3C未来发展重点 【SDCC讲师专访】车轮互联总架构师韩天峰:PHP是最好的编程语言 SDCC 2015讲师专访精彩集锦(一):你想知道的,都在这! (入门篇)带你走进Erlang 【大神来了】Elixir语言设计者José Valim:释放Erlang VM的能量 【SDCC 2015讲师专访】刘小溪:Vert.x3的异步框架实战 【CTO讲堂】支付接入开发的陷阱有多深? 程序员界“香饽饽”、大神级别人物集体亮相——SDCC 2015编程语言专场议题曝光 【CTO沙龙】CDN在共享经济下的创新应用 深入浅出Fetch API 带你入解应用场景及适用问题 SDCC 2015讲师专访精彩集锦(二):途牛网、饿了么、快的等大牛都来了 百度、饿了么、美团专家齐聚SDCC2015,剖析前端开发核心技术 【SDCC讲师专访】百度乔刚:前端可视化难点分析及探索实践 【CTO讲堂】Growth Hacking背后,数据分析平台的架构调整 BAT、巨杉、南大、柏睿等齐聚SDCC—新一代数据库专场议题曝光! 《近匠》BeeCloud创始人黄君贤:三行代码集成支付的技术实现 【SDCC讲师专访】AdMaster技术副总裁卢亿雷:分布式数据库挑战与分析 tvOS真的代表了应用的未来吗? 使用Fetch API和ES6生成器构建异步API Android应用性能优化实践 华云数据:OpenStack的技术践行之路 【SDCC讲师专访】腾讯潘安群:腾讯云金融级数据库TDSQL分析 高颜值、高品质——安全技术论坛议题曝光! 移动应用开发者正饱受折磨 在Android平台上加载本地库的危险性 《近匠》程序员客栈,程序员背后的经纪人 【CTO讲堂】浅析工业级物联网项目的快速开发 请斑竹帮忙 请问各位前辈: 在执行中出现"incorrect syntax near 'JCSZ'"的错误提示,如何解决? 下标越界是什么意思啊? 一个基础性的问题,同样一份C/C++源代码可以在UNIX 和WINDOWS运行需要具有的条件是啥??? 在一台计算机上安装两个键盘同时接受输入的问题 对XML文档中的数据能不能进行SELECE操作???? 如何用JAVA实现263邮件那样的邮件粘贴功能 请教各位大哥,小弟最近遇到麻烦,为什么我的程序安装时,出现expsrv.dll无法注册的提示?expsrv.dll有什么作用?怎样闭掉? 如何在两个结构相同的库之间倒数?? 请问如何简单确定右键点击的是哪个控件? 有哪位高手可以给出windows98登录时网络服务的身份验证模块的程序或相关资料的呢?非常感谢啦 在CTreeCtrl中同时使用系统图标与自定义图标的问题?? SHGetFileInfo()为什么在Win2000下工作不正常? 请问高手:DataGrid的问题 jsp和servlet是怎样交互的? 请问 有什么方法能实现 在几个数中随机取出几个数 谢谢 请问:在执行文件DPR中有一段代码出现错误,请各问指点! 两个问题:1 关于.NET中 一个新控件propertyGrid1的使用问题;2 我想生成一个由lable和TextBox合成的控件(label在左,TextBox靠其右),怎么办? 分栏打印 依旧是undefined function mysqsl_connect()问题 急:如何在生成的exe中添加新的属性页,显示更多文件信息? V-DVD ROM!? MSDN上的例子需要uafxcwd.lib,怎么找不到呢? 请问窗口的other事件是如何触发执行的 JSP如何学习 vc在什么时候会引起小喇叭的叫声 请教高手,如果在VB里实现内存共享? 用什么方法可以转换图片类型?譬如将BMP格式的转换为JPEG格式的,请各位大哥给点提示!!! 关于vb script数组和函数功能的二个问题!高难度! 关天打印问题? 只能最小化到屏幕的左下角 *急:无为,acptvb,请帮忙看看http://www.csdn.net/Expert/topic/426/426766.shtm (有关XMLHTTP) 在php中要取出一段字符串的前n个字节,而又要判断最后一个是中文还是英文,如果是中文则将最后半个字符省略应该怎么做? 有在BCB5中用过sapi5朗读中文的朋友,高分送上! 最初级的问题,关于编译程序的。 重庆市信息产业办公室荣获全国最差信息产业办公室称号 大家用PB创建Jaguar应用程序时,一般创建一个大包还是多个包阿? 奇怪的问题,来者有分!没回答问题的先到先得! 如何把临时表建在内存中 请教一个关于DELPHI多线程的问题 *急:无为,acptvb,请帮忙看看http://www.csdn.net/Expert/topic/426/426766.shtm(有关XMLHTTP) 比爱情少一点,比友情多一点,即不讨厌又不来电,你能做到吗? 请教一个问题,一个分两帧的窗口,分别是两个CView的子类。一个view里的下拉框选中一条记录,使另一个view刷新。不知道用什么mfc函数。 有关新开窗口的问题! please intrduce a good muti-root soft for win95,win98,winme,win2000,winxp 求助:哪位大侠能介绍一下网络传输设备(象 HDSL、Cable Modem)的品牌、厂家和性能? 我的ie浏览器怎么了? 搞软件开发时应不应该是一边看书一边搞开发? 请教:C中的共同体是什么?谁能解释一下或举例说明 关于线程套间问题。 请教各位在oracle中如何在date字段下条件? 每相邻两个计数单位之间的进率是什么 “每相邻两个计量单位之间的进率都是10”这句话对不对?这是一道数学判断题.请快点回答, 练习4:物体静止在水平桌面上,物体对水平桌面的压力( )练习4:物体静止在水平桌面上,物体对水平桌面 的压力( ) (1)就是物体的重力 (2)大小等于物体所受重力的大小 (3)此压力是由于桌面的 从个位起,把整数的数位有顺序的排列出来 . 十位的计数单位是【 】,万位的计数单位是【】相邻两个计数单间的进率是【 】急啊啊啊啊啊! 一盏吊灯用绳挂在天花板上,天花板受到拉力的施力物体是天花板吊绳吊灯地球 放在桌上的苹果会不会发生形变,苹果对桌面的压力实质是什么 挂在天花板上的物体绳子对物体的拉力来自于本身还是地球就是和物体重力平衡的那个力各楼朋友们我是说绳子本身为何有拉力为什么QQ上的人说这个拉力是万有引力? 和吊灯重力平衡的力是;A吊灯对电线的拉力B电线对天花板的拉力C电线对吊灯的拉力D天花板对电线的拉力 放在桌面上的苹果为什么会发生形变?不是说相互接触的物体不一定发生形变吗? 一物体质量为M.用绳子挂在天花板上,当以六分之一的加速度竖直加速上升时,求绳对物体的拉力? 天花板上悬挂着一只吊灯.灯绳对灯的拉力和( )是一对平衡力;灯对灯绳的拉力和( )是一对相互作用力 放在桌上的苹果会不会发生形变,苹果对桌面的压力实质是什么 一物体用绳悬挂于天花板上处于静止它所受绳子拉力的反作用力作用在__上它所受绳子拉力的平衡力是___ 一书静止在桌面,书受到的支持力和桌子受到的压力是同时发生吗 刚体力学问题.一个质量1000kg半径R的圆形水平转台可绕通过其中心的光滑竖直轴转动,一质量80kg的人站在转台边缘,当人沿转台边缘走完一周时,求转台对地面反向转过的角度。答案给是0.07 高一物理:物体在传送带的摩擦力方向如何判断?用下两个图请具体讲解 每相邻的两个计数单位之间的进率都是10,这种计数方法叫做什么? 物体A重120N,在重力为Gb的物体B的作用下在水平桌面上做匀速直线运动,A与桌面之间的摩擦力为f.如果在A上加一个水平向左大小为180N的拉力F,物体B匀速上升,则下列选项正确的是(不计摩擦、绳 【高一物理】平衡摩擦力是什么?怎么做?顺便求(3)详细过程为了验证“当质量一定时,物体的加速度与它所受的合外力成正比”.一组同学用图甲所示的装置进行实验,并将得到的实验数据 每两个相邻的计数单位之间的进率都是十,这种计数方法叫( ) 个,十,百,千,万都是计数单位,每相邻两个计数单位之间的进率都是什么啊? 一根绳子能承受的最大拉力是25牛,拉重700牛物体,1米每秒的速度,绳子刚好不断,若5米每秒,绳子会断吗?一根绳子能承受的最大拉力是25牛,拉重700牛的物体,以1米每秒的速度,绳子刚好不会断,若 每相邻两个计数单位之间的进率都是(),这个计数方法叫做(). 质量为10kg的物体放在水平桌面上,水平匀速拉动物体时,摩擦力是物体所受重力的0.2倍,g取10N/kg,求,此时物体受到几个力的作用,物体受到每个力的大小? 一根绳子只能承受1200牛的拉力,如果用它提升浸没在水中10米深 一根绳子只能承受1200牛的拉力,如果一根绳子只能承受1200牛的拉力,如果用它提升浸没在水中10米深,重力为4500牛体积为20分米3的 什么是平衡摩擦力? 2、3、4判断题且说明原因 绳子一端系在车上,另一端系在树上,绳长10米,用300牛的拉力把绳子中点向下拉0.5米绳子作用在车上力大A:3000牛B:6000牛C:300牛D:1500根3 验证牛顿第二定律改变小车质量后为什么不重新平衡摩擦力?改变小车质量后小车所售摩擦力会改变而此时为什么不重新平衡摩擦力? 求(2)(3)(4),这是判断题.请告诉我错的话错在哪里. 用动滑轮提升重物,重物的质量是50千克,绳子自由端在300牛的拉力F作用下以0.2米/秒的速度沿竖直方向匀速上升,求拉力F的功率及动滑轮的机械效率 为什么在验证牛顿第二定律时只做一次平衡摩擦力? 判断题的2.3.4.5题,虽然知道答案但不知道为什么. 数位就是计数单位这句话是错的.哪里错了?如果要这句话正确怎么改?错在什么地方? 牛顿第二定律 如何平衡摩擦力就是先把木板垫高,然后捏.就没了?就是说我怎么知道摩擦力已经平衡了?打点计时器?弹簧测力计? 重力为10N的物体放在水平桌面上,在F=3N水平向右的作用力下匀速向右运动,撤去拉力后,物体还会想( )滑此时桌面对物体的摩擦力的大小是( ),方向是( ),物体停下后受到的合力为( ) 探究加速度与力,质量的关系的实验中,需要平衡摩擦力,平衡摩擦力时应该使小车1.挂上钩码,拖上纸带2.不挂钩码,拖上纸带3.不挂钩码,不拖纸带4.挂上钩码,不拖纸带 验证牛顿第二定律,平衡摩擦力后长木板位置不能移动,为什么呢? 大物体在水平桌面上,G的重力为5N,拉着物体匀速向右移动,求滑动摩擦力.A处拉着物体匀速向左运动,求拉力大小 实验探究加速度与力,质量的关系中:木板倾角过大是平衡摩擦力过大,还是平衡摩擦力不足还有平衡摩擦力过大过小的图像是什么, 一本书静止与水平桌面上,书受到()力的作用.()和()是一对平衡力,()和()是作用和反作用力 请问判断题在数学顺序表中两个相邻单位之间的进率都是10对还是错 当做探究加速度与力.质量的关系平衡摩擦力时.斜面倾角偏大的a-f图像以a为纵坐标.以F为横坐标.图象是一条倾斜直线.但倾角偏大.所以不过坐标原点.而是在纵轴上有一段截矩这是为什么? 力学:桌面对静止放在桌面上的木块的支持力与什么是平衡力?又与什么是作用反作用力?桌面对木 摩擦力是压力还是重力?压力是重力?如果一个物体重10N那他的什么力是10N 在牛顿第二定律的实验中,如果平衡摩擦力过大或过小,则f与1/m的图像怎么画 一本物理书静止放在水平桌面上,桌面对书有支持力.与该支持力相平衡的力是 与该支持力是相互作用的力是如何辨别相互作用力和平衡力能给出力的示意图么??不懂两个力的作用点分别 一物体静止在水平桌面上,重力为50N,如果用20N的水平力向东拉它,它受到的摩擦力是20N对吧?为什么呢?20N的水平力向东拉它,它仍静止在水平桌面上。 用AC和BC吊起一重物,绳与竖直方向夹角分别为30度和60度,AC绳能承受的最大的拉力是150牛而BC能承受的最大的拉力是100牛,求物体最大重力不能超过多少? 刚体力学一个比较有难度的题目一刚体细棒,长为L,质量为M,水平放置在光滑水平面上.水平面上有一垂直于平面的钉子,穿过细棒上一光滑的小孔.现在棒的一段给予一冲击(作用时间很短),如 一个七位数,它的最高位是最小的和数.万位上的数是自然数的计数单位,十位上的数是0.5的倒数,其它(见下面其它各位上的数都是0,这个数是? 绳AC,BC吊一重100N的物体,AC,BC与竖直方向夹角为30度与45度,求AC,AB对物体拉力 问一题关于大物刚体力学的问题 物体静止在水平桌面上,物体对水平桌面的压力( )A.就是物体的重力B.大小等于物体的重力C.是由于地球的吸引而产生的D.方向是竖直向下的尤其是CD两项!D中方向难道不是竖直向下的吗?】 用两根绳吊起100牛的重物,两绳与竖直方向的夹角一个是60度一个是30度..求出每根绳子上的拉力 请问每相邻的两个计数单位之间的进率都是()这种计数方法叫做()计数法谢谢! 物体静止在水平桌面上,物体对桌面的压力()A这个压力是由于地球的吸引而产生的B这个压力是由于物体形变而产生的是A对还是B对? 悬挂在天花板下重60N的小球,在均匀水平风力作用下偏离竖直方向30度角,求风对小球的作用力和绳子的拉力 大一刚体力学的题,急 第二问,为什么2Fh/2=(mg+ma)d,重力和a的方向不是相反吗?不应该是个、(mg-ma)d吗第二问,为什么2Fh/2=(mg+ma)d,重力和a的方向不是相反吗?不应该是个、(mg-ma)d吗 .静止在水平桌面上的物体,对水平桌面的压力? . 这压力是由于桌面的形变而产生的 错在哪里?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn