上位机MFC文本滚动特效源代码

qq263946146 · 2019-9-20 11:12:38

上位机MFC文本滚动特效源代码

例程效果如上图
可以设置文本滚动速度，
绚丽背景，用户是否可通过鼠标操作文本等功能。
程序是通过从CWnd派生自己的集成类实现的。
class CCreditsCtrl : public CWnd；
可以在自己的工程中实例化一个对象 CCreditsCtrl m_wndCredits;
再初始化此对象，添加文本内容。

BOOL CCreditsDlgDlg::OnInitDialog()
{
CDialog::OnInitDialog();
// Set the icon for this dialog. The framework does this automatically
// when the application's main window is not a dialog
SetIcon(m_hIcon, TRUE); // Set big icon
SetIcon(m_hIcon, FALSE); // Set small icon
srand((unsigned)time(NULL));
// initialize credits control...
// Content
CString s;
s = "";
s += "Demo Stuff ";
s += " Color: yeeeeeeeeeehaaaaa ";
s += " Font: Comic Sans MS Courier New Tahoma ";
s += " Size: WHOOOOOOW ";
s += " Styles: bold italic underline strikeout ";
s += " Background: Blue Red Brown Ghost Font ";
s += " Alignment: right center left ";
s += " Vertical Alignment: topmiddlebottomBIG ";
s += " Resource Bitmap: <img src='#%d'> red border <img src='#%d' border='4' color='255,0,0'> ";
s += " Links: <a href='#Hello World!#%d' color='100,220,160'>Click Me!</a> <a href='notepad.exe' color='100,220,160' style='bui'>notepad</a> <a href='http://www.w3c.org' color='100,220,160' face='Courier New' size='16'>www.w3c.org</a> <a href='mailto:devix@devix.cjb.net?SUBJECT=Hello World!! ;)' color='100,220,160' face='Comic Sans MS' size='18'>devix@devix.cjb.net</a> <a href='#\nDo or do not. There is no try.\n\n\t\t-Yoda#%d' color='none' background='255,200,0' style='-uis'>Click Here</a><vspace size='4'>image link: <a href='#%d#%d' color='255,200,0'><img src='#%d' border='2' color='none'></a><vspace size='80'>";
s += "CCreditsCtrl AboutCoded in January 2001 by Marc Richarme<vspace size='5'><hspace size='30'>mail: <a href='mailto:devix@devix.cjb.net?SUBJECT=Hello World!' color='255,200,0'>devix@devix.cjb.net</a> <hspace size='30'>web: <a href='http://devix.cjb.net' color='255,200,0'>http://devix.cjb.net</a>CreditsThanks to <a href='http://www.codeproject.com' color='255,200,0'>The Code Project</a> for being the coolest VC++/MFC site out there! <vspace size='80'>";
// Content Data
m_wndCredits.FormatDataString(s,IDB_BITMAP1,IDB_BITMAP1,(long)CCreditsDlgDlg::TestFunction,(long)CCreditsDlgDlg::TestFunction,(long)this,(long)CCreditsDlgDlg::TestFunction2,IDB_BITMAP2);
// use our own function for background drawing
m_wndCredits.m_pBackgroundPaint = CCreditsDlgDlg::DrawCreditsBackground;
m_wndCredits.m_dwBackgroundPaintLParam = TRUE;
// as our background is going to be black, use black as default transparent color
m_wndCredits.m_crInternalTransparentColor = RGB(0,0,0);
// now, we're ready to begin... create the window
m_wndCredits.Create(WS_EX_CLIENTEDGE,WS_VISIBLE|WS_CHILD,IDC_PLACEHOLDER,this,0,IDC_SMILEY,0);
// for details on what more can be customized, RTFM.
// default options
((CButton*)GetDlgItem(IDC_BACKGROUND))->SetCheck(TRUE);
((CButton*)GetDlgItem(IDC_USERSCROLL))->SetCheck(TRUE);
return TRUE; // return TRUE unless you set the focus to a control
}