自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

快乐的戏子

人生本来就是一场戏

  • 博客(16)
  • 收藏
  • 关注

原创 动态设置IE代理服务器,并不用重启IE

[DllImport(@"wininet", SetLastError=true, CharSet=CharSet.Auto, EntryPoint="InternetSetOption", CallingConvention=CallingConvention.StdCall)]public static extern bool InternetSetOption(int hInternet,i

2005-04-25 18:55:00 4294 3

原创 复制目录

csvoid copyDirectory(string sourcePath, string destinationPath){ foreach(string filestr in System.IO.Directory.GetFiles(sourcePath)) {  if (!System.IO.Directory.Exists(destinationPath))   System.IO.Di

2004-12-15 15:59:00 1263 1

原创 c#中用axWebBrowser中提交表单,或点击某个对象

dddd.htm -----------------------------------------------------------------------------------form1.csusing System;using System.Drawing;using System.Collections;using System.ComponentModel;using Syste

2004-12-14 13:36:00 2966 4

转载 c# to VB.net or Vb.net to C# 转换

http://www.developerfusion.com/utilities/convertvbtocsharp.aspx

2004-12-10 23:58:00 998

转载 SQLServer中一个多用户自动生成编号的过程

if not exists (select * from dbo.sysobjects where id = object_id(N[IndexTable]) and OBJECTPROPERTY(id, NIsUserTable) = 1)create table IndexTable(Ex char(20), num integer)gocreate procedure Set

2004-12-10 23:57:00 1200

原创 给LISTVIEW加背景图

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ComCtrls, commctrl, ImgList;type  TForm1 = class(TForm)    ListView1: TLi

2004-11-08 14:55:00 2644

原创 关于网页滚动条的定位

思路很简单,就是利用cookie记录用户当前的document.all.scrollTop,然后在页面onload的时候读出cookie赋值给body.scrollTopvoid Page_load(object sender, EventArgs e){ btn.Attributes["onclick"] = "document.cookie = /"scrollTop=/" + documen

2004-11-06 20:13:00 2002 1

原创 例用AdoQuery+ListView分页

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, DB, ADODB,Grids, DBGrids, StdCtrls, ComCtrls;type  TForm1 = class(TForm)    Button1

2004-11-05 20:52:00 1948

原创 动态创建TABLE的行与列

void btn_click(object sender, EventArgs e){ ArrayList x = new ArrayList(); if (ViewState["myList"] != null) {  x = (ArrayList)ViewState["myList"]; } x.Add(DateTime.Now.ToString() + "," + DateTime.No

2004-11-04 16:24:00 1792

原创 设置webBrowser编码

添加引用Microsoft.mshtmlusing mshtml;DocumentDownComplate eventobject refLevel = 7;IHTMLDocument2 m_hDoc = (IHTMLDocument2)axWebBrowser1.Document;m_hDoc.charset = "gb2312";axWebBrowser1.Refresh2(ref

2004-08-08 22:55:00 5787

原创 屏蔽webBrowser右键

 public delegate void DHTMLEvent(IHTMLEventObj e); public class DHTMLEventHandler {  public DHTMLEvent Handler;  HTMLDocument Document;  public DHTMLEventHandler(HTMLDocument doc)  {   this.Document

2004-08-08 22:54:00 2426 1

原创 枚举NT系统服务

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Winsvc, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    Memo1: TMemo; 

2004-08-06 18:28:00 1170

原创 UrlDecode

  private void button1_Click(object sender, System.EventArgs e)  {   string test = "%C4%E3%BA%C3%B0%A1+sdfsfa%26";   MessageBox.Show(UrlDecode(test));  }  string HexToStr(string HexSource)  {      s

2004-08-04 12:22:00 1593

原创 获取任务栏状态

 APPBARDATA apd; apd.cbSize = sizeof(apd); CString str; SHAppBarMessage(ABM_GETTASKBARPOS , &apd); str.Format("left %d,top %d,width %d,height %d",apd.rc.left,apd.rc.top,apd.rc.right - apd.rc.left,apd.

2004-07-30 01:09:00 1280

原创 更改屏幕显示区

找设置任务栏高度时发现了这些代码,保留了下来 procedure FullScreenArea; var   rcWork: TRect; begin   rcWork.Top:=0;   rcWork.Left:=0;   rcWork.Bottom:=GetSystemMetrics(SM_CYSCREEN);   rcWork.Right:=GetSystemMetrics(SM_CXSCR

2004-07-22 01:25:00 1107

原创 改变任务栏高度

这个星期比较烦。。。老是在想着一个关于设置任务栏高度的问题!! 后来,在好友修罗跟农民的帮助下,才发现我一开始就是错的,我只想只对Shell_TrayWnd动手脚,没有想过它里面还包含了ReBarWindow32这个类! void CBrowserDlg::OnBnClickedButton1(){   HWND s_Hwnd = ::FindWindow("Shell_TrayWnd", NUL

2004-07-22 00:59:00 2003 1

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除