手机浏览器扫描二维码访问
CY=1000
For Radius=0 To Limit
Picturel。Circle(CX;CY);Radius;RGB(Rnd*255;Rnd*255;Rnd*255)
Next Radius
SavePicture Picturel。Image;〃c:custom。bmp〃
End Sub
执行此程序就会把图片框 Picture1 上的图象保存在 C: 盘根目录下 custom。bmp 图象文件中。
最后有两点需要指出:
1、在使用 SavePicture 语句之前,必须先将窗体或图片框的 AutoRedraw 属性设为 True,否则保留的将是一张空图;
2、使用 Image 属性保存的用画图命令(如 Line,Cirele,Pset 或 Print)画出来的图形总是以 BMP 文件格式保存。但在程序设计时如果使用窗体或图片框的 Picture 属性载入或在程序运行时通过 LoadPicture 函数载入的图象,使用 SavePicture 语句存储时,存储的文件格式同其载入前的文件格式一样(如 ICO 格式等)。
102;Q:在 Visual Basic 中如何拖动窗体或控件?
A:现在的许多 windows 下的应用程序,都采用了图形化的界面,但是在这样的界面下就不能使用 Windows 原来的标题条了,否则会影响界面的美观。那么在没有标题条的情况下如何用鼠标拖动窗体或者其它的控件呢?
其实,采用 API 函数调用很容易实现,下面我们以拖动窗体 Form1 为例来具体讲一下实现方法:
1、新建立一个项目,名称为 test。vbp;
2、填加一个模块,名称为 test。bas,并且在声明部分加入以下代码:
Declare Function ReleaseCapture Lib 〃user32〃 () As Long
Declare Function SendMessage Lib 〃user32〃 Alias 〃SendMessageA〃 (ByVal hwnd As Long; ByVal wMsg As Long; ByVal wParam As Long; lParam As Any) As Long
Public Const WM_SYSMAND = &H112
Public Const SC_MOVE = &HF012
其中 ReleaseCapture 函数是用来释放鼠标捕获的,SendMessage 函数是一个在 Windows API 中非常重要的函数,在这里的作用是用来向 Windows 发送移动窗体的消息。WM_SYSMAND 是向 Windows 发送消息的常量。SC_MOVE 是控制移动窗体的常量。请注意:这里 SC_MOVE 的赋值是 &HF012,表示鼠标对象。
3、在窗体的 MouseDown 过程中加入以下代码:
Private Sub Form_MouseDown(Button As Integer; Shift As Integer; X As Single; Y As Single)
ReleaseCapture
SendMessage Me。hwnd; WM_SYSMAND; SC_MOVE; 0
End Sub
其中 ReleaseCapture 函数用来释放鼠标捕获,SendMessage 函数向 Windows 发送移动窗体的消息。
4、保存并运行程序,按下鼠标,你会发现窗体会随着鼠标的移动而移动。
以上讲述了如何在 VB 中用鼠标拖动窗体,其实,控件的拖动的原理是一样的。例如以下代码可以实现图片框的拖动:
ReleaseCapture
SendMessage Picture1。hwnd; WM_SYSMAND; SC_MOVE; 0
(注:以上程序在 Windows98、VB5。06。0 下调试通过。在 NT4。0、VB6。0 下不能运行。)
103;Q:用 Delphi5。0 编程实现 Windows 桌面的隐藏和显示
A:实现原理是调用 Windows 的 API 函数。程序代码如下:
procedure TForm1。Button1Click(Sender: TObject);
var hDesktop:Thandle;
叶卡捷琳娜 网游之毒手药王 上市公司48大财务迷局 非梦志3商道乱世 满城尽带黄金甲 惹鬼(生子+3p+兽)----小秦子 妞妞-一个父亲的札记 穿越沦为暴君的小妾(全集) 自动变有钱 我不是侦探 [末世]侠医之微爱 影响一代读者的小说:布鲁诺与布茨 李鹏外事日记 三只鸳鸯一对半2 综漫 奇幻贵公主 首席代表 听天使在笑 醉死当涂 艳鬼夫君 我的死宅萝莉妹妹
穿越成修真大6的一个废柴,那还修你妹的真?一道七彩霞光之后,杨真直接吊炸天了!他看过的功法,直接满品满级,学都学不完!他炼制的丹药,不但起死回生,还能青春永驻,多少圣女仙子苦苦相求,什么条件都肯答应!他锻造的武器,上打神王大帝,下捅黄泉幽狱,每一件都让天地颤栗,让神魔退避!咳咳我从不扮猪装逼,因为我真牛的一批!...
书名?阅女无限??呵呵,广大银民,请看清楚哦。吴县,这个二十岁的青涩小子,进城上学,居然一不留神,取悦于众多美女,在众女的帮助下,事业也是蒸蒸日上。且看主角如何将有限的生命,投入到吴县的悦女事业中去。蹩脚的猪脚,由一个初哥,逐渐成为花丛高手。...
肉身不破,灵魂不灭,为了回到穿越前,为了再见到他可爱的女儿,不断引起星域乱战,一个不死强者,重启纪元,回归平凡,从此一个无敌奶爸诞生了。...
某天,宋书航意外加入了一个仙侠中二病资深患者的交流群,里面的群友们都以‘道友’相称,群名片都是各种府主洞主真人天师。连群主走失的宠物犬都称为大妖犬离家出走。整天聊的是炼丹闯秘境炼功经验啥的。突然有一天,潜水良久的他突然发现群里每一个群员,竟然全部是修真者,能移山倒海长生千年的那种!啊啊啊啊,世界观在...
这是一条成魔之道ltBRgt杨小天既然走上了这样的一条道路ltBRgt就决不回头ltBRgt不论前途怎么样ltBRgt都要面对它ltBRgt他一定要成为至尊ltBRgt武林的至尊ltBRgt江湖的至尊天下的至尊ltBRgt成王败寇ltBRgt成功了ltBRgt他就是名传千古的霸主失败了他就是遗臭万年的恶魔...
一觉醒来发现身边多了个没穿衣服的美女,这个美女竟然是金庸笔下的黄蓉。而且还是少女时期的黄蓉。莫名其妙的得到了黄蓉的身心,有些木讷的小人物顿时发生了变化。挨欺负了不用咱出手,有黄MM的打狗棒法帮咱出气。想成为武林高手?没问题。桃花岛武功随便学,打狗棒法随意耍,九阴真经纵横大都市总之有了黄蓉这个伪师父,真老婆之后,一切都变的精彩了!...