VB編程實(shí)用精典小技巧3例

一、利用ＡＰＩ 獲取窗口的標(biāo)題
    新建窗體Ｆｏｒｍ１和按鈕Ｃｏｍｍａｎｄ１ ぴ詿疤迥？櫓刑砑尤縵麓 碼：
    Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
    Ｐｒｉｖａｔｅ Ｄｅｃｌａｒｅ Ｆｕｎｃｔｉｏｎ Ｇｅｔ ＷｉｎｄｏｗＴｅｘｔ Ｌｉｂ ＂ｕｓ—
    ｅｒ３２＂Ａｌｉａｓ ＂Ｇｅｔ ＷｉｎｄｏｗＴｅｘｔＡ＂（ＢｙＶａｌ ｈｗｎｄ Ａｓ
    Ｌｏｎｇ ，ＢｙＶａｌ ｌｐＳｔｒｉｎｇ Ａｓ Ｓｔｒｉｎｇ ，ＢｙＶａｌ ｃｃｈ Ａｓ
    Ｌｏｎｇ）Ａｓ Ｌｏｎｇ
    ＇在窗體聲明節(jié)中加入ＡＰＩ 函數(shù)“Ｇｅｔ ＷｉｎｄｏｗＴｅｘｔ”的說明
    ＇函數(shù)將向ｌｐｓｔｒｉｎｇ 中載入要獲得的窗體ｃａｐｔｉｏｎ
    Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）
    Ｄｉ ｍｒｅｔｕｒｎｃｏｄｅ Ａｓ Ｌｏｎｇ
    Ｄｉ ｍｃａｐｔｅｘｔ Ａｓ Ｓｔｒｉｎｇ
    Ｄｉ ｍｃａｐｌｅｎ Ａｓ Ｌｏｎｇ
    ｃａｐｔｅｘｔ ＝Ｓｔｒｉｎｇ＄（１００，０）
    ｃａｐｌｅｎ ＝９９
    ｒｅｔｕｒｎｃｏｄｅ ＝Ｇｅｔ ＷｉｎｄｏｗＴｅｘｔ（ＢｙＶａｌ ｍｅ ．ｈｗｎｄ ，
    ＢｙＶａｌ ｃａｐｔｅｘｔ ，ＢｙＶａｌ ｃａｐｌｅｎ）
    ｐｒｉｎｔ ｒｅｔｕｒｎｃｏｄｅ
    Ｐｒｉｎｔ ｃａｐｔｅｘｔ
    Ｐｒｉｎｔ ｃａｐｌｅｎ
    Ｅｎｄ Ｓｕｂ