

                         VBForums -    ̳ 


                         .       
               


      VBForums-̳: HTTP://vbforums.yeah.net
         
               ύʼ: VBForums@usa.net?Subject=VBForums

         нϵ: ympang@bigfoot.com?subject=VBForumsĽ




||| ⲿ |||


Q0124:
    ˳VB,һ,֪λִͽ?
    QUESTION:COMBOBOXеȡĳITEMʱִس? Թ         
    DBLBLICK & CLICK,ǲɹ.ĿǰҵĽ:ѡȡITEM,
    TEXTȡϢ,Ȼ,ܱ׾.
    VB VERSON:5.0
                        - CoCo

Q0125:
    һ VB , ʹз, VB кܶ๦ͨ API
    ʵֵ.
     VB  API ܶ, ֪ÿʲô,
    еĲʲô˼?
    ش, ֪н õAPI ʲô,
    εõ˵.

    һ:
    θ Form  ӿˮƽֱ (: VScroll  HScroll) ?







||| 𸴲 |||



Q0118:
   ʣ
   vb5ейTCP/IPĿؼʲôʹأлл
                                    - С
ش:
    winsockؼμֲᡣ
                                    - Prisoner
Q0119:
    λvb֣
        ʵıϵMOUSEҼ˵
    ȳwindowsȱʡڱ༭ıĵʽ˵֪
    νȥ
    λVBE-MAIL֪tong_wei@hotmail.com
                              л
ش:
    SpyWorksֿؼҲ֪ôʵֵġ
                                    - Prisoner
Q0120:
    VB5İ汾sp2,sp3ʲô˼.пؼ
    д˱־,Ƿйsp2ļ.
    Vb5Ŀmsvbvm50.dllǷж汾.
            thanks   - JimChen@163.net
ش:
    Spservice packVB5ĲԴMicrosoftվءĳЩؼ
    Ҫsp2sp3С
                            - Prisoner

Q0121:
    ˭ܸVBREAD AND WRITE һ INI ļ
                            - tong_wei@hotmail.com л

ش:
    API
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal
lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As
String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal
lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

                        - Prisoner
                        - prisoner@163.net

Q0121:
    ˭ܸVBREAD AND WRITE һ INI ļ
                            - tong_wei@hotmail.com л
ش:
    ҵĳժһθ㣺
Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As Any, ByVal lpFileName As String) As Long
     
Private Function GetIniS(ByVal SectionName As String, ByVal KeyWord As String, ByVal DefString As String) As String
     Dim ResultString As String, RString As String, fi As Long, i As Integer, j As Integer
     ResultString = String$(Map.Maxtext, " ")
     fi = GetPrivateProfileString(SectionName, KeyWord, DefString, ResultString, Map.Maxtext, Map.Savevect) 'ؼʵֵ
     RString = Trim$(ResultString)
     j = Len(RString)
     If Not fi = 0 Then
        For i = j To 1 Step -1
            If LenB(StrConv(Mid(RString, i, 1), vbFromUnicode)) = 1 Then
               If Asc(Mid(RString, i, 1)) = 0 Then RString = Mid(RString, 1, i - 1)
            Else
               Exit For
            End If
        Next i
        GetIniS = RString
     Else
        GetIniS = DefString
     End If
End Function

Private Function GetIniN(ByVal SectionName As String, ByVal KeyWord As String, ByVal DefValue As Long) As Long
     GetIniN = GetPrivateProfileInt(SectionName, KeyWord, DefValue, Map.Savevect)
End Function

Private Sub SetIniS(ByVal SectionName As String, ByVal KeyWord As String, ByVal ValStr As String)
     WritePrivateProfileString SectionName, KeyWord, ValStr, Map.Savevect
End Sub

Private Sub SetIniN(ByVal SectionName As String, ByVal KeyWord As String, ByVal ValInt As Long)
     WritePrivateProfileString SectionName, KeyWord, Str$(ValInt), Map.Savevect
End Sub

                    --- ʱӦ

Q0118:

ش:
    vbTCP/IP Winsock ؼ
    ұһϵӰװ壬ͬʱֺͼν̸
    ҪĻϵ
                        - zjzqsy@public.sxptt.zj.cn

Q0124:
    ʹ AfterChange ¼Ǻܺ?
                        -Pang

Q0125:
    ϸ˽ API Ĺ,鹺һ Win32 ֲһ;
    ,ҲԿ BCB Or Delphi Я MsHelp Ϣ.ǳȫ.
                        - Pang
==========================================================================
˶ http://server.com/WebApps/mail-list-unsubscribe.cgi?id=4093


