原创 VC6【MFC】代碼累積(二)窗體透明

 首先是兩段代碼:   窗體透明1 - 全部窗體按一定比例透明 1)適用於2000,XP   在對話框類定義中添加爲新的方法:     BOOL SetTransparent(HWND hWnd, int LayerN);

原创 爲了關閉SQL2005佔幾百M內存的服務,編的這個.

cd/cls @echo off@Echo ---------------------------------------------------@echo 關閉SQL服務節省內存,下次啓動時服務還是會自動運行。@Echo -------

原创 MAZE(C Language)

#include<stdio.h> #include<graphics.h> #include<math.h> #include<conio.h> #define ESC 0x1b #define UP 0x48 #define DOWN

原创 C#[添加/消除]自啓動項源代碼

  using Microsoft.Win32;// 檢查一個自啓動鍵是否存在.private bool IsValueExist(string 

原创 相冊用縮略圖生成類(C#,ASP.NET),自適應圖像比例。

是這一個幾年前寫的相冊代碼裏翻出來的,我驚呆了還曾經編過這樣的東西,可能比我現在的代碼寫得要好。 雖然有完整的註釋,我一時間都沒看明白,更別提當初是怎麼編的它。 自己的代碼尚且如此。還是說,有時候代碼是不是自己都無所謂…… using

原创 [C#]從外部文件引入字體文件並顯示到控件

看來我對字體方面的瞭解還是不夠多啊。 從網上找了段代碼,本以爲拷裏頭就完事呢,結果發現到加載字體文件都沒問題,這些我在VB6時代都幹過。 但是當我打算把該字體應用到程序時,卻自動變回了系統默認字體。 這表示我沒有給予正確的參數。好吧我承認

原创 VC6【MFC】代碼累積(一)

  ● 定時器(消息處理) OnCreate消息處理中加入:     SetTimer(1,1000,NULL); OnTimer消息處理中加入:     InvalidateRect(NULL

原创 網頁加密WEB頁代碼

好麼,當初我發這篇的時候CSDN博客還沒有插入代碼的編輯項呢是怎麼的。 <html> <head> <meta http-equiv="Content-Language" content="zh-cn"> <meta http-equi

原创 自己寫的個C#(ASP.NET)連接SQL數據庫執行查詢和修改操作的類

這是今天花了一下時間編寫的一個ASP.NET(C# ,Framework3.5)連接SQL數據庫,執行SQL語句和獲取查詢返回數據集的類。 寫完後自己感覺,肯定這東西狀態還很原始,很多高端的需求還應對不上。目前能做的恐怕還只是基本操作,而

原创 [C++]回調系統關機對話框

只是想圖個方便,或者好看,做一個跟“開始”菜單上關機一樣的按扭,打開系統的關機對話框。 於是從網上找了找現成的代碼,然後自己改了改,有了這個。 爲了不顯示出窗體,我把控制檯的窗口也給隱藏了。 VS2010建立的入口點不是main(),因爲

原创 初涉VB.NET入門級代碼積累

[代碼1]說明:這就是取消關閉的事件,執行對窗體退出方面的控制。 其中沒見過的只有Dispose()這個方法,MSDN裏看到是釋放某託管對象的應用,還不瞭解。日後懂了再記錄於此。     Protected Overloads

原创 (C# ASP.NET)MD5加密算法

調用.net的對象那個,沒什麼難的,主要是實用。我給做成了個類,順便複製了遍改了下變成SHA1的…… using System.Web.Security; /// <summary> ///對字符串使用哈希算法(MD5或SHA1)進行

原创 [原創]生成幾種WEB圖形字體對照表

這都是上學那年代自個玩的東西。 大家別見笑。 Private Sub Form_Load() Dim str(10) As String str(1) = "webdings" str(2) = "Wingdings" str

原创 拉幕效果出現的窗體

Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As L

原创 屏幕右下角浮出式小消息窗口,透明式消失

'任務欄高度[此部分相關代碼轉載自 枕善居]Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal u