有关改变IE字体大小的一段C程序,我想把下面这几行改成相应的VB程序,我该怎么做?

Question

TRACE("Zoom enabled.\n");
            VARIANT vaZoomFactor;   // Input arguments
            VariantInit(&vaZoomFactor);
            V_VT(&vaZoomFactor) = VT_I4;
            V_I4(&vaZoomFactor) = fontSize;
            hr = pCmdTarg->Exec(NULL, OLECMDID_ZOOM,
                     OLECMDEXECOPT_DONTPROMPTUSER,
                     &vaZoomFactor, NULL);
            VariantClear(&vaZoomFactor);
         }
比如说: V_VT' VT_I4 我就看不明白,VB中有相应的函数吗?  帮我决对给分!!!

Answer 1

Option ExplicitFunction GetFontSize(WebCtl As WebBrowser) As String
   Dim vFontSize   As Variant
   
   Call WebCtl.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DODEFAULT, 0, vFontSize)
   Select Case vFontSize
       Case 0
           GetFontSize = "Smallest"
       Case 1
           GetFontSize = "Smaller"
       Case 2
           GetFontSize = "Medium"
       Case 3
           GetFontSize = "Larger"
       Case 4
           GetFontSize = "Largest"
   End Select
End FunctionPrivate Sub Command1_Click()
    WebBrowser1.Navigate "www.applevb.com"
End SubPrivate Sub Command2_Click()
    Debug.Print GetFontSize(WebBrowser1)
End SubPrivate Sub Command3_Click()
    Dim x As Variant
    
    x = 3
    WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(x), 0
End Sub