vb.net錨點(diǎn)函數(shù) vb控件獲得焦點(diǎn)
VB.NET自定義函數(shù)
很簡單，在end select前再多加一種情況case else return "XXXx",因?yàn)槟阒惶峁┝?-9這10種情況
播州網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián),播州網(wǎng)站設(shè)計(jì)制作，有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為播州1000+提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站制作要多少錢，請找那個(gè)售后服務(wù)好的播州做網(wǎng)站的公司定做！
Public Function Zuhe(ByVal qa As String) As String
Select Case qa
Case "0"
Return "1"
Case "1"
Return "3"
Case "2"
Return "4"
Case "3"
Return "6"
Case "4"
Return "2"
Case "5"
Return "8"
Case "6"
Return "9"
Case "7"
Return "7"
Case "8"
Return "5"
Case "9"
Return "0"
Case else
Return "XXXX"
End Select
End Function
在 VB.NET 中 SetWindowPos 應(yīng)如何使用?
因?yàn)閿?shù)據(jù)類型的不同，VB.NET調(diào)用系統(tǒng)API函數(shù)和VB6不太一樣，VB6是這樣：
Public?Declare?Function?SetWindowPos?Lib?"user32"?(ByVal?hwnd?As?Long,?ByVal?hWndInsertAfter?As?Long,?ByVal?X?As?Long,?ByVal?Y?As?Long,?ByVal?cx?As?Long,?ByVal?cy?As?Long,?ByVal?wFlags?As?Long)?As?Long
在VB.NET中是這樣調(diào)用：
DllImport("user32.dll",?SetLastError:=True)?_
Public?Shared?Function?SetWindowPos(ByVal?hWnd?As?IntPtr,?ByVal?hWndInsertAfter?As?IntPtr,?ByVal?X?As?Integer,?ByVal?Y?As?Integer,?ByVal?cx?As?Integer,?ByVal?cy?As?Integer,?ByVal?uFlags?As?SetWindowPosFlags)?As?Boolean
End?Function
參考：
vb.net mid()函數(shù)
它本身是沒法忽略空格這個(gè)功能的，只能在MID取出字符后判斷是不是空格，是就放棄這個(gè)就可以了
VB.net為什么取消了“l(fā)enb”“midb”這些函數(shù)，.net又如何通過變通方法來實(shí)現(xiàn)？
include QtCore/QCoreApplication
#include QAxObject
#include Windows.h
int main(int argc, char *argv[])
{
//OleInitialize(0);
//CoInitialize(0);
QCoreApplication a(argc, argv);
QAxObject *asdfg = new QAxObject("Excel.Application");
return a.exec();
}
標(biāo)題名稱：vb.net錨點(diǎn)函數(shù) vb控件獲得焦點(diǎn)
網(wǎng)頁地址：http://m.jiaotiyi.com/article/doedois.html