太平洋来的风 - 达人(在海水中游泳)

2009/04/19 | 改变分辨率的VFP代码 vfp

类别(数据库学习笔记) | 评论(0) | 阅读(164) | 发表于 23:52

=
If Sysmetric(1)<1024
Local lcDevMode
lcDevMode=Replicate(Chr(0),156)
Declare Integer EnumDisplaySettings In user32 Integer,Integer,String @
Declare Integer ChangeDisplaySettings In user32 String @,Integer
EnumDisplaySettings(0,4294967295,@lcDevMode)
lcDevMode=Stuff(lcDevMode,109,8,Chr(1024%256)+Chr(1024/256)+Chr(0)+Chr(0)+Chr(768%256)+Chr(768/256)+Chr(0)+Chr(0))
ChangeDisplaySettings(@lcDevMode,1)
Clear Dlls [ChangeDisplaySettings]
Clear Dlls [EnumDisplaySettings]
Endif
本文来源于【梅子论坛临时文章系统】网站地址：http://www.meizvfp.com/article.asp?id=11

2009/04/16 | 关于注册ocx文件

类别(数据库学习笔记) | 评论(0) | 阅读(55) | 发表于 16:42

1
If File('控件全名')
    oll=Createobject('Wscript.shell')
    If oll.Run("REGSVR32 /S 控件全名",0,.T.)!=0 &&注册
        Messagebox('控件注册失败！',16,'信息提示')
    Endif
    *oll.RUN("REGSVR32 /U /S 控件全名",0,.T.) &&解除注册
    Release oll
Else
    waitstr="缺少控件全名文件..."
    Wait waitstr Windows At Srows()/2,(Scols()-Len(waitstr))/2 Timeout 5
    Close All
    Clear All
    Return
Endif

2、
Declare Long DllRegisterServer In 控件全名

2009/02/23 | 第二章操作系统

类别(教程习题) | 评论(0) | 阅读(457) | 发表于 14:05

第二章操作系统

2009/01/12 | 打印机状态

类别(语言类学习笔记) | 评论(0) | 阅读(39) | 发表于 23:10

PRTINFO(nPrinterSetting [, cPrinterName])
cPrinterName
指定要返回信息的打印机名。如果省略 cPrinterName, 返回默认打印机的信息

sys(3)

printstatus()

2009/01/12 | 一些关于打印机的代码

类别(语言类学习笔记) | 评论(0) | 阅读(309) | 发表于 23:08

如何在程序里判断一个打印作业已经进入打印队列（也就是可以在打印管理程序里看到该作业的信息），或者说如何察看打印队列里已有的作业信息？

看下面的这个例程。还有测试代码。

uses WinSpool;
type JOB_INFO_1_ARRAY = Array of JOB_INFO_1;
Function GetSpoolerJobs(sPrinterName : String) : JOB_INFO_1_ARRAY;
var
i : Integer;
hPrinter : THandle;
bResult : Boolean;
cbBuf : DWORD;
pcbNeeded : DWORD;
pcReturned :

2009/01/12 | vfp6.0的十个实用技巧

类别(数据库学习笔记) | 评论(0) | 阅读(497) | 发表于 22:09

vfp6.0的十个实用技巧
---- 一.选择网络打印机

---- 笔者单位里的局域网上安装有多台网络打印机，在使用vfp 6.0编制的程序进行打印操作时，是否可以选择其中的某一台空闲的网络打印机进行打印，而不一定非要从默认打印机输出，从而提高工作效率呢？经笔者研究，在执行命令：report from … to printer 之前，先执行下列程序代码：set printer to name getprinter()，就可以调用操作系统的"打印设定"对话框，用户利用该窗口即可达到灵活选择空闲打印机进行打印输出的功能。(注：可供选择的打印机名是用户计算机上已安装好的打印机名。)

---- 二.恢复丢失了的fpt文件

---- 由于误操作，将自由表的备注文件删除，致使自由表无法打开。遇到这种情况我们可采用下述方法解决:

---- 1.创建一个新的自由表，且该自由表只含一个字段，其类型为备注型。关闭该自由表，将其扩展名为fpt的备注文件复制给误删除的自由表的备注文件，或将该备注文件改名为误删除的自由表的备注文件即可。运行下面的程序同样也可以恢复丢失了的fpt 文件：

accept ''请输入丢失了.fpt
文件的自由表名称(不带扩展名)：'' to namef
namef=trim(namef)+''.bbb''
crea dbf &namef (aa m)
use
dele file &namef

---- 2.用vfp低级文件函数创建一个空的fpt文件，原自由表即可打开。程序清单如下：
accept '

2009/01/12 | VFP 中使用 Wscript.shell

类别(数据库学习笔记) | 评论(0) | 阅读(216) | 发表于 21:54

Shelltpara='a -ad -y -dh -ep1 '+' "'+allt(thisform.bkfile.value)+'" '+' "'+thisform.comment+'\sur"' &&messageb("rar.exe "+Shelltpara)
oShell=Createobject("Wscript.shell")
oShell.Run("rar.exe "+Shelltpara,0,.T.)

if director('&filen0.')
   commandstr= 'dele file   '+ ' "&filen0.\*.*" '   &&   messagebox(commandstr)
   &commandstr.
   commandstr= 'rd '+' "&filen0."' &&    messagebox(commandstr)

2008/12/31 | CHM不能正常显示的解决办法。

类别(其他相关笔记) | 评论(0) | 阅读(326) | 发表于 15:34

（1）是XP系统的问题。这个问题的发生，是由于hhctrl.ocx的版本号出现错误或未正确注册。原因在于安装的其他软件用hhctrl.ocx的旧版本替换了原来的版本。注册的方法是：开始--运行，输入regsvr32 hhctrl.ocx 之后出来一个注册成功的对话框，确定，然后重启系统。
（2）既然注册hhctrl.ocx不能解决问题,很有可能是协议出了问题。HH.EXE 用的是 ms-its 等协议，这些协议应该是由某个 DLL 文件提供服务的。问题是，是什么 DLL 呢？于是再用 Google 搜索 ms-its 协议。终于找到了，原来是一个 itss.dll 在做服务。OK，找到该服务就要,再注册一下:regsvr32 itss.dll 重启。
（3）用Microsoft® HTML Help Executable 打开，就是C:\windows\hh.exe 系统自带的, 到别人的电脑上copy一个hh.exe ，放到上面那个目录里，再双击一个chm文件，如果让你选择程序的话就选那个C:\windows\hh.exe ，这样就恢复了chm文件和hh.exe的关联了

2008/12/30 | tell me why [wmv]

类别(其他相关笔记) | 评论(0) | 阅读(38) | 发表于 21:13

tell me why

歌手：declan galbraith

[ti:tell me why]
[ar:declan galbraith]

tell me why
演唱: declan

2008/12/20 | 很久了,今天又见到这只小鸟啦,哈哈

类别(其他相关笔记) | 评论(0) | 阅读(30) | 发表于 20:52

2008/12/19 | 在线杀毒地址:http://onecare.live.com/site/en-US/scanner/safety_scan.htm?redir=true

类别(其他相关笔记) | 评论(0) | 阅读(258) | 发表于 22:17

http://onecare.live.com/site/en-US/scanner/safety_scan.htm?redir=true

2008/12/02 | 最常见的20种VC++编译错误信息

类别(语言类学习笔记) | 评论(0) | 阅读(26) | 发表于 21:44

压缩包下载

2008/11/29 | flash8 关于声音

类别(教程习题) | 评论(0) | 阅读(19) | 发表于 23:44

s = new Sound();
s.attachSound("aaaa");
s.start(0,1);

s :Sound= new Sound();
s.attachSound("aaaa"); // 不能用=
s.start(0,1);

var song_sound:Sound = new Sound();
song_sound.attachSound("aaaa");
S.onRelease = function() {
song_sound.start();
};
SS.onRelease = function() {
song_sound.stop();
};

2008/11/29 | 调用外部声音后如何控制声音的播放次数

类别(教程习题) | 评论(0) | 阅读(72) | 发表于 23:25

http://space.flash8.net/bbs/viewthread.php?tid=348709

调用外部声音后如何控制声音的播放次数

music = new Sound();
music.attachSound("yu");//yu是库中的声音
music.start(0, 3);//这里可以实现声音放三次
－－－－－－－－－－－－－
现在我用另一种方法播放声音：
bg_sound = new Sound();
bg_sound.loadSound("sound1/yu.mp3", true);//这里是外面的声音文件
bg_sound.onSoundComplete = function ()
{
bg_sound.start(0, 3);//但这里却不能实现播放三次的功能，而是循环播放，请问这是什么问题啊？？
难道是只有把声音导入库中后才能控制播放次数的吗，

2008/11/29 | 控制元件颜色

类别(教程习题) | 评论(0) | 阅读(20) | 发表于 22:42

1。创建一个图片元件

2。拉入场景，属性改为movie ,命名n

3。选中n,F9

onClipEvent (mouseDown) {
    colorA   =   new   Color(_root.n);
    colorA.setTransform(ChangeOrange());
}
onClipEvent (keyDown) {
    colorA   =   new   Color(_root.n);
    colorA.setTransform(ChangeOrange());
}
onClipEvent (load){
function   ChangeOrange   ()   {
change_color   =   new   Object();
change_color.rb   =   random(255);
change_color.gb

http://wwle.5d.cn/

我有一对翅膀，不是用来飞翔，而是用来煮汤。

http://space.flash8.net/bbs/viewthread.php?tid=348709

调用外部声音后如何控制声音的播放次数