


                         VBForums -    ̳ 


                         .       
               


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

            нϵ: ympang@bigfoot.com



:
    Prisoner˵ĺSHShutDownDialogĲǺκ塣⣬
    ڵʱȻʾһԻûѡֹرģʽе
    һ֡ҲwindowsʾԻûĺò
    ȷرģʽȻֱӹرwindowsʾԻ
                                    - lcy@wz.col.com.cn

:
    λáWindowsҼ˵мԼ
    磬ĳһļĳһļĹ˵мĳ򿪵
    лл⣬Լдĳм룬ʹøó Windows
    ʱԶУעrunмӦĿ
                                        лл
                                    - Prisoner



:
    
    Dear Sir,
          Win95 (English version) in my computer will cause some deadly
    error if CSTAR is open. I am sorry that I have to write you in English.
    In the last letter to you, I want to tell you:
    * I developed some small programs, but I am satisfied with
    none. To obtain the source of your dictionary, I want to send you a
    small program designed by Visual Basic 5.0. This program named <<The
    memory test of number>>. I am shame that there is few tip in this
    program. Will I obtain the source of your dictionary after you receive
    the resource of my program?
    * I am developing a system named <<Family Account>> by
    using VBA of Excel. I want to share this program in your Web site to
    others, can you help me?
          Thanks.

                        Yours truly, Zhao XiaoJun


:
        һVBߣǰVB3.0̣
    VB5.0оܺáһ⣬
    ش̡
        3.0vbplay.vbxaaplay.dll
    ಥFLC,FLIļĳ򣬷ǳ
    ʹ5.0зֻMCIŶ
    Զûvbplayãvbplay.vbx16λ
    ؼʺδvbplay32λ汾
                ָлaaplay32λ汾
                MY E-mail:hfl@public.east.cn.net


------------------------------------------------------------------------
:
    λ֣
         VBѧߣ볢VB5.0+ACCESS97дһ֧Ʊӡ.
    һ:νİתĽд,"123.00"ת
    "Ҽ۷ʰԪ"?
         ⻹һЩ,ϣλEMAILҽû
    ҪĳķܹҲο
                     ʤм
                                - sya
ش:
    ԽֵתΪַMIDҳÿһλCASE任ɴд
    Ϳ.磺
        a = 123.01
        b = Str(a)
        d = ""
        For i = 1 To Len(b)
        c = Mid(b, i, 1)
        Select Case c
          Case "1"
          d = "Ҽ"
          Label1.Caption = Label1.Caption + d
          Case "2"
          d = ""
          Label1.Caption = Label1.Caption + d
          Case "3"
          d = ""
          Label1.Caption = Label1.Caption + d
        .......
        .......
      Case "0"
      d = ""
      Label1.Caption = Label1.Caption + d
      Case "."
      d = "."
      Label1.Caption = Label1.Caption + d
    End Select
    Next i
                        - gui
                        

˶ http://server.com/WebApps/mail-list-unsubscribe.cgi?id=4093


