怎么编写变色龙按钮?请高手指点!
A借代
借喻、借代
借喻:直接把甲说成乙,本体和比喻词不出现。
借代:不直接把人或事物的名称说出来,而用和它有密切关系的名称、事物或某种属性来代替的修辞方法。
借喻和借代的区别:借喻的基础是不同事物间的相似点,借代则是事物之间的相关性。借喻和借代可以用是否能还原成明喻来区别。借喻能还原,借代则不能
http://www.pkuschool.com/zadmin/manage/details.asp?TopicAbb=directions&FileName=e9h3ywb434aa01.htm
http://baike.baidu.com/view/595022.html?wtp=tt这里就有啊~~
点里面目录的小说~~
但是我们仍然可以使用子类化技术实现他,下面的代码就是一个简单的例子来处理Windows的
WM_MOUSELEAVE消息的,我演示的是鼠标移出一个Button时的情形。
1.加入一个模块,专门用来处理子类函数:
Option Explicit
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Copyright 2002 40Star, All Rights Reserved.
'
'E-Mail :40Star@163.com
'Distribution:你可以完全自由随便的使用这段代码,不管你用于任何目的
' 程序在于交流和学习
' 如有任何BUG请和我联系
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex _
As Long, ByVal dwNewLong As Long) As Long
Private Declare Function CallWindowProc Lib "user32" Alias _
"CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal _
hwnd As Long, ByVal Msg As Long, ByVal wParam As _
Long, ByVal lParam As Long) As Long
Const GWL_WNDPROC = (-4&)
Dim PrevWndProc&
Private Const WM_DESTROY = &H2
Public Declare Function TrackMouseEvent Lib "user32" (lpEventTrack As TRACKMOUSEEVENTTYPE) As Long
Public Const TME_CANCEL = &H80000000
Public Const TME_HOVER = &H1&
Public Const TME_LEAVE = &H2&
Public Const TME_NONCLIENT = &H10&
Public Const TME_QUERY = &H40000000
Private Const WM_MOUSELEAVE = &H2A3&
Public Type TRACKMOUSEEVENTTYPE
cbSize As Long
dwFlags As Long
hwndTrack As Long
dwHoverTime As Long
End Type
Public bTracking As Boolean
Dim evtTrack As TRACKMOUSEEVENTTYPE
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Function SubWndProc(ByVal hwnd As Long, ByVal Msg As Long, _
ByVal wParam As Long, ByVal lParam As Long) _
As Long
If Msg = WM_DESTROY Then Terminate (hwnd)
'处理鼠标移出消息
If Msg = WM_MOUSELEAVE Then
bTracking = False
Form1.Print "The mouse left the form!"
End If
SubWndProc = CallWindowProc(PrevWndProc, hwnd, Msg, wParam, lParam)
End Function
Public Sub Init(hwnd As Long)
PrevWndProc = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf SubWndProc)
End Sub
Public Sub Terminate(hwnd As Long)
Call SetWindowLong(hwnd, GWL_WNDPROC, PrevWndProc)
End Sub
' -- 模块结束 -- '
2. 窗体中处理需要加入的代码:
Option Explicit
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If bTracking = False Then
bTracking = True
Dim ET As TRACKMOUSEEVENTTYPE
'initialize structure
ET.cbSize = Len(ET)
ET.hwndTrack = Command1.hwnd
ET.dwFlags = TME_LEAVE
'start the tracking
TrackMouseEvent ET
End If
End Sub
Private Sub Form_Load()
Call Init(Command1.hwnd)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call Terminate(Command1.hwnd)
End Sub
不如干脆去下个XPBUTTON控件
汽车作文
如果非要用一个词来形容它的外观的话,那就是变化莫测,它的外壳上有一种可以测距的避险装置,这是看到变色龙产生灵感发明的,只要遇到障碍物立即自动避开。 听了我的梦想设计方案,你肯定对这种新型汽车有所了解了吧!让我们共同努力,一起打造这辆完美而又有安全保障的汽车吧! 关于汽车作文8 不知不觉,已经到了三十...
疯狂变色龙怎么玩
疯狂变色龙左边是变色儿,你点一下这个紫色变成橙色或者橙色变成紫色,右边是跳起来,你要长的话就挑剔时间长一点。
新型衣服作文
变色龙可以随着阳光的强弱,随着周围环境颜色的变化,改变自身的颜色,达到隐藏自己,恐吓敌人的目的。我发明的这种衣服它也可以像变色龙一样,改变颜色。这种衣服的外形与普通的衣服没有两样,也有各种款式,有男式女式;有夹克;有西装;有裙子;有运动装。但是,它的内部却隐藏着很大的秘密,具有很高的...
变色龙引导进入安装盘,代码刷到这里后黑屏,怎么解?
打开变色龙引导器运行安装,只需要轻轻点下安装按钮会自动安装,出现操作成功就代表已经安装好了!(杀毒软件要禁用!否则会报错!!!)可是变色龙版本较低这时可以替换一个新版的引导,把wowpc.iso覆盖到C盘根目录。右击属性 把文件设为只读,隐藏,然后确定。安装盘内的文件的删减:将附件(补丁)中...
我是学电脑描稿的,我想知道有关变色龙描稿软件的有关快捷键
保留:exe\/dll\/ocx等运行支持文件 然后“发布”菜单--> 构建 --> 选择打包文件名 完成打包 最后安装的文件在安装夹下就没有代码文件了。2 修改安装步骤的屏幕和信息 “工程”菜单 --> 屏幕... -->找到需要的阶段: 安装之前,安装之时,安装之后 --> 点击 “编辑”(还有添加、移除按钮) -...
有没有什么简单的方法能把视频画面上的水印或者是logo去掉
3、在进行一些编辑操作之前,要先选好你要编辑的视频素材,而这个页面会将你手机上所有的视频展现排列出来,找到你要去水印的,然后点击添加到下面的媒体栏,再进行下一步。4、进入一个预览界面,预览过后点击下面的“去水印”按钮。5、这时视频下方就会有个进度条和时间线,将进度条以拖动的方式来确定...
观察变色龙作文400字
我想如果能根据变色龙身上的变色功能,发明一种“变色保护衣”就好了。解放军叔叔穿上“变色保护衣”以后,再也不用担心会有生命危险。只要按一下红色按钮网,衣服就会变成像草一样的绿色,使敌人一点也看不见他们的存在,这样既能保卫国家,又能保护自己,多好呀!警察叔叔穿上“变色保护衣”以后,按...
VUE制作视频中的logo水印怎么去掉
3、点击三角点图标后,会弹出对话框,在弹出的对话框中点击设置这个选项。4、点击设置后会有一个下滑菜单,可以看到一个水印选项,默认是ON,也就是打开了水印。5、在这个设置界面中,我们可以预览生成视频后的大致界面,也可以自行添加水印样式。6、如果不需要水印,将上面的水印按钮选择关闭。这样生成的...
桌游变色龙怎么玩?
游戏规则游戏目标:变色龙的目标就是多获得同颜色的牌,颜色种类要少,使自己的得分高。 第一个出牌:开局的第一个回合,系统随机选定一个玩家先出牌。然后沿顺时针的方向,在接下来的回合里逐个开始。如:一座玩家四个人A,B,C,D,第一个回合随机选定A玩家先出牌,第二个回合就是A的下家B玩家先...
《变色龙》写作背景是什么?
写作背景:《变色龙》作于1884年,刚刚上台的俄国沙皇亚历山大三世,一方面竭力强化警察统治,一方面颁布了一些掩人耳目的法令,给残暴的专制主义蒙上了一层面纱。此时的警察已成为沙皇专制统治的化身,打着遵守法令的招牌,干着献媚邀功的勾当。写作特点 《变色龙》运用社会环境描写。烘托了冷清、凄凉、人情...
恽柱劲朗: #include<stdio.h> #include<string.h> void main() {char a[90],b[30];int k,i;printf("请输入字符串1:");gets(a);printf("\n请输入字符串2:");gets(b);k=strlen(a)-1;for(i=0;i<=(strlen(b)-1);k++){a[k]=b[i];}puts(a); }
上蔡县18519419033: 在word里用vba编写一个按钮程序,目的是全文查找指定文字然后将该文档内的指定文字更改为红色. - ?
恽柱劲朗: 不用宏直接查找替换,查找里面输入指定文字,替换为里面也是指定文字,设置替换为的格式,字体的颜色为红色.
上蔡县18519419033: C语言 如何编杨辉三角 - ?
恽柱劲朗: 你好,你的程序改完后是这样: #include int main (void) { void...
上蔡县18519419033: 关于易语言编程?
恽柱劲朗: 双击那个按钮进入代码编写.代码如下: 载入(窗口1,,假)
上蔡县18519419033: C语言程序高手请指点 - ?
恽柱劲朗: 我不知道你的8.391667是怎么算来的,正确答案n=5时,输出s=6,下面我们看每一步执行循环时各变量的值:k s c a b1 0 ? 2 1 这是循环开始前,各变量的初值1 2 2 3 3 第一次循环时,k=1不变,s=0...
上蔡县18519419033: 求高手编写一个VBA按钮命令的click代码. - ?
恽柱劲朗: Private Sub CommandButton1_Click() msgbox "Hello, world." End Sub
上蔡县18519419033: 求大神帮我写个C#脚本实现鼠标点击按钮,按钮的颜色发生改变本人新手 - ?
恽柱劲朗: private void button1_Click(object sender, EventArgs e) { Button button = sender as Button; button.BackColor = Color.FromArgb(100, 200, 200, 200); }
上蔡县18519419033: 在eclipse中,怎样用JToolBar写应用程序的工具栏按钮代码,请高手帮忙! - ?
恽柱劲朗: 先用JToolBar,然后用一个Panel容器,在里面添加JButton,将JButton设置为无边框就可以了,呵呵……
上蔡县18519419033: 请各位编程高手帮一下忙,用c#语言编写一个window应用程序 - ?
恽柱劲朗: int m=0; int i=1; for( i;i...
上蔡县18519419033: 请教高手,如何编写EXCEL中的宏?
恽柱劲朗: 其实宏就像一个模拟器,他会按照你录制过程中所做的动作重复的做一次,然后在你运行过后,将结果告诉你,如果你懂VB,你就会看到宏的程序.具体的操作相对较繁琐,但也不难,只要你多摸索,总会搞明白的.现在简单的描述一下: 1、点...