技术随笔

暂停并最小化Windows Media Player工具的改进

小刀人 — Fri, 14 Apr 2006 04:58:00 GMT

用发送虚拟按键解决用Windows Media Player看东东的“特殊”问题中工具还是有些问题：
1、timer一直在工作；
2、找到Media Player的句柄值有些麻烦。
今天改了下，如下图：

这样用起来方便些。
主要代码：

       private void button1_Click(object sender, System.EventArgs e)
        {
            SetForegroundWindow(NowHwnd);
            SendKeys.Send("%PP");
            SetForegroundWindow(NowHwnd);
            SendKeys.Send("% N");
            StartMax();
         }

        private void timer1_Tick(object sender, System.EventArgs e)
        {   int myphwnd;
            StringBuilder interswap = new StringBuilder(256);

            GetCursorPos(ref mypoint);
            Lx=mypoint.x;
            Ly=mypoint.y;
            myphwnd=WindowFromPoint(Lx, Ly);

            GetWindowText(myphwnd,interswap, 255);
            if (interswap.ToString().IndexOf ("Media")>=0)
             {
                NowHwnd = myphwnd;
                HwndSt.Text="Media Player已锁定!";
                button1.Enabled=true;
                timer1.Stop();
            }
            else
            {
                NowHwnd = myphwnd;
                HwndSt.Text=NowHwnd.ToString();
            }

        }

        private void button2_Click(object sender, System.EventArgs e)
        {

            timer1.Start();
            StopMin();
            button1.Enabled=false;
        }

        private void button3_Click(object sender, System.EventArgs e)
        {
            SetForegroundWindow(NowHwnd);
            SendKeys.Send("% x");
            SetForegroundWindow(NowHwnd);
            SendKeys.Send("%PP");
            StopMin();

        }
        //以下为更换按钮
        public void StopMin()
        {
            button3.Visible=false;
            button1.Visible=true;
        }
        public void StartMax()
        {
            button3.Visible=true;
            button1.Visible=false;
        }

源代码下载。

《面向对象开发实践之路》：Ｃ＃的虚方法和抽象方法

小刀人 — Fri, 07 Apr 2006 11:29:00 GMT

《面向对象开发实践之路》读后之：Ｃ＃的虚方法和抽象方法

用发送虚拟按键解决用Windows Media Player看东东的“特殊”问题

小刀人 — Thu, 09 Mar 2006 14:18:00 GMT

做个东东，专用于在用Windows Media Player看东东的时候，一键搞定暂停及最小化，这样快的处理，老板和同事谁都不会发现你的，他们走了你继续啊.......嘿嘿！

保存用户配置的方法收集

小刀人 — Wed, 30 Nov 2005 13:47:00 GMT

一些保存用户配置（由用户设置系统属性）的方法

将文本文件（以逗号或制表符任意分列）全文或指定行导入Excel（更新版）

小刀人 — Sat, 09 Apr 2005 01:11:00 GMT

上次的实现只是做到了全文导入Excel中，而且文本文件.txt为扩展名的，只能以制表符分列，用逗号不可以。（CSV文件都用逗号，当然没有问题。）
这两天没事的时候，我又加入了些功能：可以导入指定行，进一步完善了。
例如，如下的文本文件（.txt）：

文本中的逗号可以是全角或半角。可以用如下格式导入Excel：

做这些工作需要一个中间文本文件interfile.txt。工具界面如下：

看到前面的行号了吗？这是我在文本框里加入的，源文本文件没有变化（数据保持干净）。中间文本文件interfile.txt里有前面的行号，这样你可以在Excel中看到你导入了源文本的哪些行。
源代码（VB6.0）下载地址：http://blog.vckbase.com/Files/zhaotide/texttoxlsa.rar

将文本文件导入到Excel（使用VB）

小刀人 — Tue, 05 Apr 2005 14:34:00 GMT

以制表符或逗号间隔的文本文件，使用VB用以下方法可以导入到Excel中。

Private Sub Command3_Click()
   Dim oBook As Object
   Set objExcel = CreateObject("Excel.Application")
   objExcel.Visible = True
   Set oBook = objExcel.Workbooks.Open("E:个人文件编程资料个人计算机类书籍清单.txt")
End Sub

如图：

点击“读到Excel”（就是上面代码的Command3）按钮，可有Excel弹出并将文本文件以行，每行以逗号，制表符为列打开文本文件，当然可以很方便地另存为xls文件。
效果如下图所示：

这个东东还是有用途的。
我把这个东东打了包，可以将.txt或.csv等文本文件导入Excel打开，取消已打开的文本文件可以通过点击“打开”弹出的对话框再点击“取消”按钮就可以了。
如有兴趣，可看这里http://blog.vckbase.com/zhaotide/archive/2005/04/09/4539.html，新增加了指定行、任意使用逗号、制表符分列导入功能。

Linux，不相信Chinese!

小刀人 — Tue, 15 Mar 2005 15:45:00 GMT

我现有的个人pc的操作系统有点复杂。原先是：winme＋win2000＋Redhat linux9.01，winme在c盘。硬盘情况：一块新的，一块旧的，linux在旧的上。后来不幸，win2000中毒身亡，又安装了winxp，原来装win2000的盘Format了。然后就找不到linux的Grub启动界面了。
出了这个问题，我到也不着急。这对于别的linux老鸟来说不会是什么问题，我想大家一定有现成的办法。我在网上一搜，办法有n多个。最方便的就是使用安装光盘修复了。
于是按照以下办法（摘自一个网友的blog）：

1。把安装盘的第一张放到光驱，然后重新启动机器，在BOIS中把系统用光驱来引导
2。等安装界面出来后选择F5(Linux Rescue)(会有提示)，linux以前版本好像是F4,Fedora core 3中F5是修复
3。出现boot：提示符，在此处输入linux rescue回车，接着会提示你选择安装的语言你可以选择中文，也可以是英文，一直回车，当出现提示配置网络的时候，你选择NO。
4。会出现sh 3.0# 提示符，输入grub后回车，进入grub>
5。在grub>下输入 grub>root (hdX,Y)
grub>setup (hd0)
（x,y的值根据实际情况赋值，我只有一个硬盘，windows和linux都安装在这个盘上，所以x=0,
linux下我有2个分区hd0，hd1,0是交换分区，1安装linux，所以y=1）
6 回车以后，出现提示信息，如果都是succeed，那么就修复成功了，接着我们退出和重起系统
7 在grub>下输入reboot后，退到boot：提示符下面，接着输入exit，重启系统后，进入grub
注意：他的意思是可以在选择时既可以是中文也可以是英文，我开始选的就是中文简体，谁知道进入grub>后输入root (hd1, y)（注：这里的y是指的linux安装的分区编号，我两个硬盘，6，7个分区，根本不记得在哪个分区安装的，就按网上众人所言按tab键，这时毫无反映）。后又将y值一通乱试，总是不行。
于是重启再来，如此往复了两次，都不可以。
总不至于大家都说可以的办法，到我这里就不行了。最后试的一次，由于嫌麻烦，一路回车，没有再改成中文语言。谁知道，root（hd1，后按tab键，系统很快就将所有第二块盘分区编号一条条列出，我的y值是4。然后，按上面方法很快就搞定了。终于又看到Grub界面选项和以前一样，进入linux正常，进入winxp正常。（注：他那个第7步，我好像没有用上，我的办法和他不太一样，我在grub>提示符后直接按printscreen sysRq键（就windows下截屏的那个键）就回到上一层sh ××#提示符，然后exit，退出重启。
不知道别人是否也有此类经历。看来，linux，不相信Chinese！中文环境下反而有些事情干不了。好像，连解压bin文件都要在text模式下。不知道，Redhat linux10下有没有解决这些问题。我想，正如一个网友所言，个人pc上使用linux作为操作系统还是比不了windows。但是，其它方面的应用可能就不是这个情况了。因为，linux的价钱比微软的windows更有亲和力。

Filter问题

小刀人 — Mon, 28 Feb 2005 13:34:00 GMT

为给单位的一个小软件（Access＋VBA）加个字段筛选器，要求筛选条件是后台操作，而非显式筛选。开始用常用的几招都不能奏效。查了书，也没有找到方法。查msdn在500个主题中找到这一条：ACC2000: Setting the Filter Property of a Form Does Not Apply the Filter。看了半天，忽然想到孔乙己，茴香豆的“茴”有n种写法......
原文如下：
.......

Symptoms

Setting the Filter property of a form does not apply the filter.

Cause

The Filter property holds the filter that is applied when the filtering process is started, but does not start the filtering process.

Resolution

You must set the FilterOn property of the form to True to apply the filter. If you want the filter to be applied when the form opens, you can set the FilterOn property to True on the Open event of the form by using a macro or Visual Basic code, or you can apply the filter manually.

Method 1: Using a Macro

To apply a filter when the form is opened, create the following macro and set the form's OnOpen property to the following macro:

Action: SetValue
Item: FilterOn
Expression: True

Method 2: Using Visual Basic Code

To apply a filter when the form is opened, set the form's OnOpen property to the following event procedure:

Private Sub Form_Open(Cancel As Integer)
   Me.FilterOn = True
End Sub

Method 3: Applying a Filter Manually

To apply a filter after the form is opened:

Click Apply Filter on the Form View toolbar.

-or-
Click Apply Filter/Sort on the Records menu.

More Information

Steps to Reproduce Behavior

CAUTION: Following the steps in this example will modify the sample database Northwind.mdb. You may want to back up the Northwind.mdb file and perform these steps on a copy of the database.

Open the sample database Northwind.mdb.
Open the Orders form.
Press CTRL+G to open the Immediate window. In the Immediate window, type the following line, and then press ENTER:
Forms!Orders.Filter = "OrderID = 10926"
Note that nothing is returned.
In the Immediate Window, type the following line, and then press ENTER:
Forms!Orders.FilterOn = True
Note that the filter is now applied.

我发现More Information的步骤可以，Filter的＝右边的格式怎么写呢，试了好几种写法，终于成功：

Me.[××××× 子窗体].Form.Filter = "(status<>'无') And (status<>'不合格') And ( rejectornot<>True)"

其中rejectornot字段是复选框。