代码搜索：Screen
找到约 10,000 项符合「Screen」的源代码
代码结果 10,000
www.eeworm.com/read/243130/12960659
txt 获得一个应用程序有几个form (2001年1月9日).txt
获得一个应用程序有几个form (2001年1月9日)
网友更新 分类:系统 作者:阎 磊 推荐:yanlei 阅读次数:483
(http://www.codesky.net)
--------------------------------------------------------------------------------
方法1:
var
www.eeworm.com/read/142085/12966280
pas ucolorform.pas
unit UColorForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TColorForm = class(TForm)
image1: TImage;
www.eeworm.com/read/142037/12968657
prg mainprg.prg
clea all
close all
public be,user ,rec,rec1,mdh
set stat bar off
set talk off
set safe off
_screen.visible=.f.
do form loginform
read event
www.eeworm.com/read/242566/12998752
bas softscrl.bas
'Future.Library Simple software scrolling
'
REM $INCLUDE: 'future.bi'
Set800x600'Set 800x600 svga screen
handle% = AllExpMem(480000)'get 480000 of EMS memory
FOR i% = 0 TO 800
Future.CIR
www.eeworm.com/read/242566/12998754
bas putems.bas
'Future.Library EMSget/EMSput, Pageing and Mouse Support
'
REM $INCLUDE: 'future.bi'
Set640x400'Set 640x400 svga screen
handle% = AllExpMem(256000)'get 256000 of EMS memory
handle1% = AllEx
www.eeworm.com/read/242566/12998760
bas getaput.bas
'Future.Library Pageing, GET, PUT and Mouse Support
'
DECLARE SUB DrawStuff ()
REM $INCLUDE: 'future.bi'
DIM Red%(0 TO 256)
Set640x480 'set 640x480 svga screen
DrawStuff
Future.GET 0, 0
www.eeworm.com/read/242566/12998762
bas mouse.bas
'Future.Library Mouse Support
'
REM $INCLUDE: 'future.bi'
Set640x400 'set 640x400 svga screen
FOR i% = 0 TO 255 'copy mouse shape DATA into a string
READ C%
C$ = C$ + CHR$(C%)
NEXT
F
www.eeworm.com/read/242566/12998763
bas printit.bas
'Future.Library Printing/scrolling and Mouse Support
'
REM $INCLUDE: 'future.bi'
Set640x480 'set 640x480 svga screen
Future.MouseOn 'turn on svga mouse
ScrollMe$ = " Hello World -- hmm ho
www.eeworm.com/read/141570/12999534
txt 71.txt
关闭MDI窗体中所有的子窗体
如果用户在一个MDI窗体中打开了许多子窗体，要一个个关闭确实是件麻烦事。当
然你可以将MDI窗体卸载掉来解决这个问题，但如果用户此时还不想退出程序呢？
下面这个小程序可帮你这个忙。
首先在MDI窗体的菜单中加入mnuCloseAll这个菜单项，然后在其Click事件中加入
下面的代码：
<mark>Screen</mark>.MousePointer = vbHourg ...
www.eeworm.com/read/141570/12999931
txt 10.txt
VB5.0中基于桌面的屏幕技巧
作者：金永涛
---- WINDOWS 95 的 桌 面 是 用 户 的 一 个 主 要 工 作 场 所, 如 果 你 能 使 这 个 桌 面 移 动 起 来 或 者 发 生 其 它 变 化, 将 是 一 种 别 具 一 格 屏 幕 特 技 效 果, 而 实 际 上 目 前 具 有 类 似 效 果 的 程 序 并 不 少 见, 比 如Microsoft PLU