怎么编写变色龙按钮？请高手指点！
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、点...
