我这有一个VC的源码,哪位大虾能帮我把这个源码转成VB的.100分如果不够还可以再加.急.............?

请给出E-MAIL,我将把源码发给你.谢谢!

解决方案 »

  1.   

    我也要看看
    [email protected]
      

  2.   

    看看
    [email protected]你的E-Mail
      

  3.   

    能发给我一份吗？
    [email protected]
      

  4.   

    注意看“CharExtraDlg.cpp”：HBRUSH CCharExtraDlg::OnCtlColor(CDC* pDC, CWnd* pWnd, UINT nCtlColor) 
    {
    HBRUSH hbr = CDialog::OnCtlColor(pDC, pWnd, nCtlColor);

    // TODO: Change any attributes of the DC here
    switch(nCtlColor)
    {
    case CTLCOLOR_STATIC:
    if(pWnd->GetDlgCtrlID()==IDC_EXAMPLE_STATIC)
    pDC->SetTextCharacterExtra(m_nCharExtra);
    if(pWnd->GetDlgCtrlID()==IDC_EMAIL)
    pDC->SetTextColor(RGB(0,0,255));
    case CTLCOLOR_EDIT:
    if(pWnd->GetDlgCtrlID()==IDC_EXAMPLE_TEXT)
    pDC->SetTextCharacterExtra(m_nCharExtra);
    }

    // TODO: Return a different brush if the default is not desired
    return hbr;
    }
    ===================================================================它是在接收WM_CtlColor消息时用SetTextCharacterExtra设置字间距的SetTextCharacterExtra VB声明 
    Declare Function SetTextCharacterExtra Lib "gdi32" Alias "SetTextCharacterExtraA" (ByVal hdc As Long, ByVal nCharExtra As Long) As Long 
    说明 
    描绘文本的时候，指定要在字符间插入的额外间距 
    返回值 
    Long，这个设备场景的前一个额外间距设置 
    参数表 
    参数 类型及说明 
    hdc Long，设备场景的句柄 
    nCharExtra Long，要在字符间插入的额外空间，采用设备场景的逻辑坐标系统 
    在VB里使用 
    如改变了这个设置，注意恢复VB窗体或控件原来的字符间距设置
     
      

  5.   

    我想要的是如何在LABEL中设置字间距,这个源码就设置字间距的.