⑴ 用php寫一個簡單登錄界面,怎麼給它加入一張背景圖片啊,用div框該怎麼弄,或者其他的方法
背景圖像載入很簡單,你只需要做以下幾步即可(假設你的登陸界面對話框類名叫「CLoginDlg」):
(1)菜單「Insert」->"Resource",選擇Bitmap,然後點「Import...」,選擇你的背景圖像,然後假設該資源ID為「IDB_BITMAP1」;
(2)在LoginDlg.h下聲明一個CBitmap m_BKbitmap;
(3)在LoginDlg.cpp的構造函數中:m_BKbitmap.LoadBitmap(IDB_BITMAP1);
(4)在LoginDlg.cpp的OnPaint()函數中寫上:
void CLoginDlg::OnPaint()
{
CPaintDC dc(this); // device context for painting
if (IsIconic())
{
SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);
// Center icon in client rectangle
int cxIcon = GetSystemMetrics(SM_CXICON);
int cyIcon = GetSystemMetrics(SM_CYICON);
CRect rect;
GetClientRect(&rect);
int x = (rect.Width() - cxIcon + 1) / 2;
int y = (rect.Height() - cyIcon + 1) / 2;
// Draw the icon
dc.DrawIcon(x, y, m_hIcon);
}
else
{
BITMAP bm;
CRect rect;
CDC dcMem;
m_BKbitmap.GetBitmap (&bm);
GetClientRect(&rect);
dcMem.CreateCompatibleDC (&dc);
CBitmap *oldbitmap=dcMem.SelectObject (&m_BKbitmap);
dc.BitBlt (0,0,bm.bmWidth ,bm.bmHeight ,&dcMem,0,0,SRCCOPY);
dcMem.SelectObject(oldbitmap);
CDialog::OnPaint();
}
}
你的問題就OK了。
關於按鈕控制項顯示圖片,建議你可以下載一個CButton的繼承類,什麼「CButtonST」啊、「CBtnST」啊、「CDlgShadeButtonST」啊,自己手寫的話不劃算,有很多現成的控制項類,都寫的非常好,完全可以拿來為我們所用。
⑵ vb 列印多個 richtextbox
獲得文件名是完全不可行的,因為把圖片插入後不會保存文件名信息
至於復制這樣寫
Private Sub Command2_Click()
RichTextBox2.TextRTF=RichTextBox1.TextRTF
End Sub
順便幫你寫了個改變字體大小的
再加一個CommonDialog
Private Sub Command1_Click()
On Error Resume Next
With CommonDialog1
.FontName = RichTextBox1.SelFontName
.FontSize = RichTextBox1.SelFontSize
.Color = RichTextBox1.SelColor
.FontBold = RichTextBox1.SelBold
.FontItalic = RichTextBox1.SelItalic
.FontUnderline = RichTextBox1.SelUnderline
.FontStrikethru = RichTextBox1.SelStrikeThru
End With
CommonDialog1.Flags = cdlCFEffects Or cdlCFForceFontExist Or cdlCFScreenFonts
CommonDialog1.ShowFont
With RichTextBox1
.SelFontName = CommonDialog1.FontName
.SelFontSize = CommonDialog1.FontSize
.SelColor = CommonDialog1.Color
.SelBold = CommonDialog1.FontBold
.SelItalic = CommonDialog1.FontItalic
.SelUnderline = CommonDialog1.FontUnderline
.SelStrikeThru = CommonDialog1.FontStrikethru
End With
RichTextBox1.SetFocus
End Sub
新建一個Command,一個Richtextbox
Private Sub Command1_Click()
RichTextBox1.OLEObjects.Add , , "C:\1.bmp"
End Sub
註:"C:\1.bmp"可以改為其它文件名
添加圖片後,圖片會嵌入在文本里,不需要原來的圖片文件
附方法2:
再加一個Picturebox,命名為PicInsert
Autosize=true Autoredraw=true
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_PASTE = &H302
Private Sub Command1_Click()
PicInsert.Picture = LoadPicture("c:\1.bmp")
PicInsert.Picture = PicInsert.Image
DoEvents
Clipboard.Clear
Clipboard.SetData PicInsert.Picture
SendMessage RichTextBox1.hwnd, WM_PASTE, 0, 0
End Sub
⑶ 請教如何將CDL導入virtuoso並轉換成電路圖
請參考我之前的一個帖子:
網表導入成電路的詳細步驟
http://bbs.eetop.cn/thread-318575-1-1.html
⑷ VB richtextbox 圖片控制大小
控制項里的圖片是做什麼用的,如果只是背景圖片,不如換個思路,把改圖片放入IMAGE里,任你放大縮小,放在RICHTEXTBOX 下方,然後使用一個API函數,把RICHTEXTBOX變成全透明,這樣就顯示背景圖片和RICHTEXTBOX里的字,效果很好,我自己使用過,絕對可行。
如果是控制項里的文字里包換的圖片,那我沒弄過
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
PICCOPY 是IMAGE,STRENCH=TRUE,大小自己調
PicCopy.Picture = LoadPicture("C:=\aa.bmp")
Clipboard.SetData PicCopy.Image '將圖形內容拷貝到剪貼板
SendMessage Richtextbox1.hwnd, WM_PASTE, 0, 0
⑸ 做好的PPT可以再加背景圖片進去么。第一次做,做好播放時才發現圖片閃出來的時候後面背景都是白的好難看
1. 兩幅圖片同時動作
PowerPoint的動畫效果比較多,但圖片只能一幅一幅地動作。如果你有兩幅圖片要一左一右或一上一下地向中間同時動作,可就麻煩了。其實辦法還是有的,先安置好兩幅圖片的位置,選中它們,將之組合起來,成為"一張圖片"。接下來將之動畫效果設置為"左右向中間收縮",現在請看一看,是不是兩幅圖片同時動作了?
2. 滾動文本框的製作
右擊工具欄打開"控制項工具箱",再點擊文本框,而後從"屬性"裡面把滾動條打開,在TEXT裡面輸入文本框的內容.(完成)還可以通過"其他控制項"中的SHOCKWAVE FLASH OBJECT 實現PPT中加入FLASH。
3. 輕松隱藏部分幻燈片
對於製作好的powerpoint幻燈片,如果你希望其中的部分幻燈片在放映時不顯示出來,我們可以將它隱藏。方法是:在普通視圖下,在左側的窗口中,按 Ctrl,分別點擊要隱藏的幻燈片,點擊滑鼠右鍵彈出菜單選「隱藏幻燈片」。如果想取消隱藏,只要選中相應的幻燈片,再進行一次上面的操作即可。
4.在PPT演示文稿內復制幻燈片
要復制演示文稿中的幻燈片,請先在普通視圖的「大綱」或「幻燈片」選項中,選擇要復制的幻燈片。如果希望按順序選取多張幻燈片,請在單擊時按Shift 鍵;若不按順序選取幻燈片,請在單擊時按Ctrl鍵。然後在「插入」菜單上,單擊「幻燈片副本」,或者直接按下「Ctrl shift D」組合鍵,則選中的幻燈片將直接以插入方式復制到選定的幻燈片之後。
5. Powerpoint自動黑屏
在用Powerpoint展示課件的時候,有時需要學生自己看書討論,這時為了避免屏幕上的圖片影響學生的學習注意力可以按一下「B」鍵,此時屏幕黑屏。學生自學完成後再接一下「B」鍵即可恢復正常。按「W」鍵也會產生類似的效果。
6. 將幻燈片發送到word文檔
1、在Powerpoint中打開演示文稿,然後在「文件」菜單上,指向「發送」,再單擊「Microsoft Word」。
2、在「將幻燈片添加到Microsoft word文檔」之下,如果要將幻燈片嵌入word文檔,請單擊「粘貼」;如果要將幻燈片鏈接到word文檔,請單擊「粘貼鏈接」。如果鏈接文件,那麼在Powerpoint中編輯這些文件時,它們也會在word文檔中更新。
3、單擊「確定」按鈕。此時,系統將新建一個word文檔,並將演示文稿復制到該文檔中。如果word未啟動,則系統會自動啟動word
7. 讓幻燈片自動播放
要讓powerpoint的幻燈片自動播放,只需要在播放時右鍵點擊這個文稿,然後在彈出的菜單中執行「顯示」命令即可,或者在打開文稿前將該文件的擴展名從PPT改為PPS後再雙擊它即可。這樣一來就避免了每次都要先打開這個文件才能進行播放所帶來的不便和繁瑣。
8. 增加PPT的「後悔葯」
在使用powerpoint編輯演示文稿時,如果操作錯誤,那麼只要單擊工具欄中的「撤消」按鈕,即可恢復到操作前的狀態。然而,默認情況下 Powerpoint最多隻能夠恢復最近的20次操作。其實,powerpoint允許用戶最多可以「反悔」150次,但需要用戶事先進行如下設置:在 「工具-選項」,擊「編輯」選項卡,將「最多可取消操作數」改為「150」,確定。
9. PPT中的自動縮略圖效果
你相信用一張幻燈片就可以實現多張圖片的演示嗎?而且單擊後能實現自動放大的效果,再次單擊後還原。其方法是:
新建一個演示文稿,單擊「插入」菜單中的「對象」命令,選擇「Microsoft powerpoint演示文稿」,在插入的演示文稿對象中插入一幅圖片,將圖片的大小改為演示文稿的大小,退出該對象的編輯狀態,將它縮小到合適的大小,按F5鍵演示一下看看,是不是符合您的要求了?接下來,只須復制這個插入的演示文稿對象,更改其中的圖片,並排列它們之間的位置就可以了。
10. 快速靈活改變圖片顏色
利用powerpoint製作演示文稿課件,插入漂亮的剪貼畫會為課件增色不少。可並不是所有的剪貼畫都符合我們的要求,剪貼畫的顏色搭配時常不合理。這時我們右鍵點擊該剪貼畫選擇「顯示'圖片』工具欄」選項(如果圖片工具欄已經自動顯示出來則無需此操作),然後點擊「圖片」工具欄上的「圖片重新著色」按鈕,在隨後出現的對話框中便可任意改變圖片中的顏色。
11. 為PPT添加公司LOGO
用powerpoint為公司做演示文稿時,最好第一頁都加上公司的Logo,這樣可以間接地為公司做免費廣告。執行「視圖-母版-幻燈片母版」命令,在 「幻燈片母版視圖」中,將Logo放在合適的位置上,關閉母版視圖返回到普通視圖後,就可以看到在每一頁加上了Logo,而且在普通視圖上也無法改動它了。
12. 「保存」特殊字體
為了獲得好的效果,人們通常會在幻燈片中使用一些非常漂亮的字體,可是將幻燈片拷貝到演示現場進行播放時,這些字體變成了普通字體,甚至還因字體而導致格式變得不整齊,嚴重影響演示效果。
在powerpoint中,執行「文件-另存為」,在對話框中點擊「工具」按鈕,在下拉菜單中選擇「保存選項」,在彈出其對話框中選中「嵌入TrueType字體」項,然後根據需要選擇「只嵌入所用字元」或「嵌入所有字元」項,最後點擊「確定」按鈕保存該文件即可
13. 利用組合鍵生成內容簡介
我們在用powerpoint2003製作演示文稿時,通常都會將後面幾個幻燈片的標題集合起來,把它們作為內容簡介列在首張或第二張幻燈片中,讓文稿看起來更加直觀。如果是用復制粘貼來完成這一操作,實在有點麻煩,其實最快速的方法就是先選擇多張幻燈片,接著按下alt shift s即可。
14. 演示文稿中的圖片隨時更新
在製作演示文稿中,如果想要在其中插入圖片,執行「插入-圖片-來自文件」,然後打開「插入圖片」窗口插入相應圖片。其實當我們選擇好想要插入的圖片後,可以點擊窗口右側的「插入」按鈕,在出現的下拉列表中選「鏈接文件」項,點擊確定。這樣一來,往後只要在系統中對插入圖片進行了修改,那麼在演示文稿中的圖片也會自動更新,免除了重復修改的麻煩。
15. 快速調用其他PPT
在進行演示文檔的製作時,需要用到以前製作的文檔中的幻燈片或要調用其他可以利用的幻燈片,如果能夠快速復制到當前的幻燈片中,將會給工作帶來極大的便利。
在幻燈片選項卡時,使游標置於需要復制幻燈片的位置,選擇「菜單」中的「幻燈片(從文件)」命令,在打開的「幻燈片搜索器」對話框中進行設置。
通過「瀏覽」選擇需要復制的幻燈片文件,使它出現在「選定幻燈片」列表框中。選中需要插入的幻燈片,單擊「插入」,如果需要插入列表中所有的幻燈片,直接點擊「全部插入」即可。這樣,其他文檔中的幻燈片就為我們所用了。
16. 快速定位幻燈片
在播放powerpoint演示文稿時,如果要快進到或退回到第5張幻燈片,可以這樣實現:按下數字5鍵,再按下回車鍵。若要從任意位置返回到第1張幻燈片,還有另外一個方法:同時按下滑鼠左右鍵並停留2秒鍾以上。
17. 利用剪貼畫尋找免費圖片
當我們利用powerpoint2003製作演示文稿時,經常需要尋找圖片來作為鋪助素材,其實這個時候用不著登錄網站去搜索,直接在「剪貼畫」中就能搞定。方法如下:插入-圖片-剪貼畫,找到「搜索文字」一欄並鍵入所尋找圖片的關鍵詞,然後在「搜索范圍」下拉列表中選擇「Web收藏集」,單擊「搜索」即可。這樣一來,所搜到的都是微軟提供的免費圖片,不涉及任何版權事宜,大家可以放心使用。
18. 製作滾動文本
在powerpoint中有時因顯示文本內容較多就要製作滾動文本。具體製作方法如下:視圖-工具欄-控制項箱,打開控制項工具箱,點擊「文字框」選項,插入 「文字框」控制項,然後在幻燈片編輯區按住滑鼠左鍵拖拉出一個文本框,並根據版面來調整它的位置和大小。接著在「文字框」上右擊滑鼠,選擇快捷菜單中的「屬性」命令,彈出「文字框」屬性窗口,在屬性窗口中對文字框的一些屬性進行相關的設置。
設置好後右擊「文字框」,選擇「文字框對象」中的「編輯」命令,這時就可以進行文字的輸入,文本編輯完之後,在文字框外任意處單擊滑鼠,即可退出編輯狀態。一個可以讓框內文字也隨滾動條拖動而移動的文本框就做好了。
19. 突破20次的撤消極限
Powerpoint 的「撤消」功能為文稿編輯提供了很大方便。但powerpoint默認的操作次數卻只有20次。執行「工具-選擇」,擊「編輯」標簽卡,在「最多可取消操作數」中設置你需要的次數即可。不過要注意,powerpoint撤消操作次數限制最多為150次。
20. 利用畫筆來做標記
利用powerpoint2003放映幻燈片時,為了讓效果更直觀,有時我們需要現場在幻燈片上做些標記,這時該怎麼辦?在打開的演示文稿中單擊滑鼠右鍵,然後依次選擇「指針選項-繪圖」即可,這樣就可以調出畫筆在幻燈片上寫寫畫畫了,用完後,按ESC鍵便可退出。
21. 快速調節文字大小
在powerpoint中輸入文字大小不合乎要求或者看起來效果不好,一般情況是通過選擇字體字型大小加以解決,其實我們有一個更加簡潔的方法。選中文字後按ctrl ]是放大文字,ctrl [是縮小文字。
22. 計算字數和段落
執行「文件-屬性」,在其對話框中選「統計」選項卡,該文件的各種數據,包括頁數、字數、段落等信息都顯示在該選項卡的統計信息框里。
23.PPT(PowerPoint)技巧之:使用技巧
1、打包。"打包"功能用於壓縮演示文稿(包括所使用的特殊字體文件、鏈接的文檔和多媒體文件),幫助用戶輕松地復制到軟盤上以便攜帶。打包過程:單擊"文件/打包"菜單項→選擇需要打包的演示文稿→依"打包"向導的步驟完成打包任務。
2、將PPT文件的擴展名改為PPS可以將PPS文件可直接播放。
3、你可能不知道的快捷鍵:B鍵:黑屏,W鍵:白屏,在播放的PPT中使用畫筆標記:CTRL P,擦除所畫的內容:E鍵。
4、F5 放映文檔
5、使用wps2007中的演示文檔代替microsoft office的powerpooint,更小,更快!
24. PPT中如何插入插入SWF(百分之百有效的方法)
在「視圖」菜單上,指向「工具欄」,然後單擊「控制項工具箱」。
在「控制項工具箱」上,單擊「其他控制項」(帶有錘子和扳手圖標的按鈕)。
在列表中,向下滾動並單擊「Shockwave Flash Object」,然後將其拖放到幻燈片上以繪制該控制項。如果需要調節控制項以適應動畫的尺寸,則可以各個拖動尺寸柄以調節控制項的大小。
在 Shockwave Flash Object 上單擊滑鼠右鍵,然後單擊「屬性」。
在「按字母序」選項卡中,單擊 Movie 屬性。
在取值欄(Movie 旁邊的空白單元格)中,鍵入要播放的 Flash 文件的完整驅動路徑(包括文件名在內。 例如,C\:My Documents\MyFile.swf)或統一資源定位器 (URL)。 要設置動畫播放的特定選項,請執行以下操作,完成後關閉「屬性」對話框:
確保 Playing 屬性設為 True。該設置使幻燈片顯示時自動播放動畫文件。如果 Flash 文件內置有「開始/倒帶」控制項,則 Playing 屬性可設為 False。
如果不想讓動畫反復播放,請在 Loop 屬性中選擇 False(單擊單元格以顯示向下的箭頭,然後單擊該箭頭並選擇 False)。
要嵌入 Flash 文件以便將該演示文稿傳遞給其他人,請在 EmbedMovie 屬性中單擊 True。(但是,要運行 Flash 文件,任何運行該演示文稿的計算機都必須注冊 Shockwave Flash Object 控制項。)
要運行動畫:在幻燈片的普通視圖下,單擊 PowerPoint 窗口左下方的「幻燈片放映」按鈕(或按 F5 鍵,或在「幻燈片放映」菜單上單擊「觀看放映」)。
要退出幻燈片放映並返回普通視圖,請按 ESC 鍵。
注釋 本文所涉及到的第三方產品是由 Microsoft 以外的其他廠商製造的,對於這些產品的性能和可靠性,我們不作任何保證或暗示。
25. ppt中插入.Swf文件,為什麼只能播放一遍?
因為你的FLASH有問題,你的FLASH沒有設置跳回去的按扭。
26. ppt中插入的swf文件如何從指定處開始播放?
可以用VBA代碼來限制開始播放的幀數,怎麼編寫VBA代碼下面有一段在網上引用的教程:
1、窗體、界面設計。
新建工程,選擇「工程」菜單下的「部件」命令,在「部件」窗口的「控制項」列表中將「Shockwaveflash」、「MicrosoftCommonDialogControl6.0(SP3)」、「.0(SP3)」前的復選框選中,然後確定。再在窗體中分別加入1個CommonDialog控制項、1個Slider控制項、3個Label控制項、6個CommandButton控制項和1個StatusBar控制項。其中:
將Form1的「Caption」屬性設置為:Flash動畫播放器。這是控制窗口。
將CommonDialog1的CancelError設置為True,DialogTitle設置為「打開Flash動畫文件」,Filter屬性設置為「Flash動畫(*.swf)|*.swf|」,FilterIndex設置為1,MaxFileSize設置為10240。
將Slider1的SelectRanger的屬性設置為「True」,SmallChange屬性和LargeChange屬性設置為10,TickFrequengcy屬性設置為20,TextPosition設置為「1-SldBelowRight」。
將Label(1-3)分別放在Slider1下的左端、中間和右端。其中,Label1的Caption設置為「0幀」,Label2和Label3的Caption設置為空字元串。
6個CommandButton的「名稱」屬性分別為:cmdOpen、cmdPlay、cmdPause、cmdPre、cmdPreFrame、cmdNextFrame、cmdNext、cmdExit,「Caption」屬性分別為:打開、播放、暫停、上一個、上一幀、下一幀、下一個、退出。
在StatusBar上單擊滑鼠右鍵,選擇「屬性」,從彈出的窗口中選擇「窗格」頁面,用滑鼠點擊「插入窗格」5次,在索引1-5中分別設置「文本」屬性為:「共打開了0個文件」、「狀態:」、「等待」、「幀數:」、「0」,再適當設置每一項的「最小寬度」的屬性(可參考圖1中的比例)。
進入菜單編輯器(按快捷鍵Ctrl+E)。設置第一個菜單標題為「顯示控制」,名稱為:mnuDisplay;在「顯示控制」下設立子菜單標題分別為「全部顯示」、「隨窗口大小變化」、「縮放至窗口大小」,名稱分別為:mnuDisplay0、mnuDisplay1、mnuDisplay2。設置第二個菜單標題為「質量控制」,名稱為:mnuQuality;在「質量控制」下設立子菜單標題分別為「低解析度」、「高解析度」,名稱分別為:mnuQuality0、mnuQuality1。設置第三個菜單標題為「播放控制」,名稱為:mnuPlayControl;在「播放控制」下設立子菜單標題分別為「循環播放」、「放大畫面」、「縮小畫面」,名稱分別為:mnuLoopPlay、mnuZoomIn、mnuZoomOut。
選擇「工程」菜單下的「添加窗體」命令,新增一個窗體Form2作為播放窗口。在Form2上加入1個ShockwaveFlash控制項和1個Timer控制項。將Timer1控制項的「Interval」屬性設置為「20」。
最後,對各窗體、控制項的大小、位置進行適當的調整,其大小、位置可參考圖1。
2、程序代碼
第一步:在Form1的代碼窗口中添加以下代碼:
DimFileNames()AsString注釋:用於保存打開的文件名稱。
DimPlayFileNumAsInteger注釋:用於計算正在播放的文件序號。
DimTotalFileAsInteger注釋:用於統計打開的文件總數。
PrivateSubcmdOpen_Click()注釋:打開
OnErrorGoToExitOpen
CommonDialog1.Flags=
CommonDialog1.FileName=〃"
CommonDialog1.ShowOpen注釋:顯示「打開」對話框。
注釋:以vbNullChar作為子字元串的邊界分隔字元串CommonDialog1返回的FileName。
FileNames()=Split(CommonDialog1.FileName,vbNullChar)
IfUBound(FileNames)=0Then注釋:用戶只打開了一個文件。
Form2!ShockwaveFlash1.Movie=FileNames(0)
TotalFile=1
PlayFileNum=0
Else注釋:用戶打開了多於一個文件。
Form2!ShockwaveFlash1.Movie=FileNames(0)+〃\〃+FileNames(1)
TotalFile=UBound(FileNames)
PlayFileNum=1
EndIf
StatusBar1.Panels(1).Text=〃共打開了〃+Trim(Str(TotalFile))+〃個文件〃
cmdPlay_Click
ExitOpen:
EndSub
PrivateSubcmdPlay_Click()注釋:開始播放
IfTotalFile<1ThenExitSub注釋:用戶還沒有打開文件。
注釋:顯示Form2開始播放動畫。
Form2.Caption=FileNames(PlayFileNum)+〃-Flash動畫播放器〃
Form2.Show
Form2!ShockwaveFlash1.Playing=True
IfTotalFile=1ThenPlayFileNum=0
注釋:顯示狀態條的信息。
StatusBar1.Panels(3).Text=〃正在播放文件:〃+FileNames(PlayFileNum)+〃...〃
注釋:顯示滑動條的狀態。
Slider1.Max=Form2!ShockwaveFlash1.TotalFrames
Label2.Caption=Str(Slider1.Max/2)+〃幀〃
Label3.Caption=Str(Slider1.Max)+〃幀〃
EndSub
PrivateSubcmdPause_Click()注釋:暫停播放
Form2!ShockwaveFlash1.Stop
EndSub
PrivateSubcmdPre_Click()注釋:播放上一個文件
IfTotalFile<>1Then注釋:當用戶打開多於一個文件時
PlayFileNum=PlayFileNum-1
IfPlayFileNum<1ThenPlayFileNum=TotalFile
Form2!ShockwaveFlash1.Movie=FileNames(0)+〃\〃+FileNames(PlayFileNum)
EndIf
注釋:顯示播放狀態的信息。
StatusBar1.Panels(3).Text=〃正在播放文件:〃+FileNames(PlayFileNum)+〃...〃
Slider1.Max=Form2!ShockwaveFlash1.TotalFrames
Form2.Caption=FileNames(PlayFileNum)+〃-Flash動畫播放器〃
Label2.Caption=Str(Slider1.Max/2)+〃幀〃
Label3.Caption=Str(Slider1.Max)+〃幀〃
EndSub
PrivateSubcmdNext_Click()注釋:播放下一個文件
IfTotalFile<>1Then注釋:用戶打開多於一個文件時
PlayFileNum=PlayFileNum+1
IfPlayFileNum>TotalFileThenPlayFileNum=1
Form2!ShockwaveFlash1.Movie=FileNames(0)+〃\〃+FileNames(PlayFileNum)
EndIf
注釋:顯示播放狀態的信息。
StatusBar1.Panels(3).Text=〃正在播放文件:〃+FileNames(PlayFileNum)+〃...〃
Slider1.Max=Form2!ShockwaveFlash1.TotalFrames
Form2.Caption=FileNames(PlayFileNum)+〃-Flash動畫播放器〃
Label2.Caption=Str(Slider1.Max/2)+〃幀〃
Label3.Caption=Str(Slider1.Max)+〃幀〃
EndSub
PrivateSubcmdPreFrame_Click()注釋:跳到動畫的上一幀
Form2!ShockwaveFlash1.Back
EndSub
PrivateSubcmdNextFrame_Click()注釋:跳到動畫的下一幀
Form2!ShockwaveFlash1.Forward
EndSub
PrivateSubcmdExit_Click()注釋:退出程序
End
EndSub
PrivateSubSlider1_Scroll()
注釋:當用戶拖動滑動條時,將播放幀數設置為滑動條中的值。
Form2!ShockwaveFlash1.FrameNum=Slider1.Value
EndSub
PrivateSubmnuDisplay0_Click()
注釋:將畫面大小設置為在控制項內保持動畫原來比例全部顯示
Form2!ShockwaveFlash1.ScaleMode=0
mnuDisplay0.Checked=True
mnuDisplay1.Checked=False
mnuDisplay2.Checked=False
EndSub
PrivateSubmnuDisplay1_Click()
注釋:將畫面的縮放設置為隨控制項橫向(或縱向)的縮放而變化
Form2!ShockwaveFlash1.ScaleMode=1
mnuDisplay0.Checked=False
mnuDisplay1.Checked=True
mnuDisplay2.Checked=False
EndSub
PrivateSubmnuDisplay2_Click()
注釋:將畫面大小設置為不理會動畫原來比例縮放至控制項大小
Form2!ShockwaveFlash1.ScaleMode=2
mnuDisplay0.Checked=False
mnuDisplay1.Checked=False
mnuDisplay2.Checked=True
EndSub
PrivateSubmnuLoopPlay_Click()
注釋:將播放方式設置為循環或不循環。
mnuLoopPlay.Checked=NotmnuLoopPlay.Checked
Form2!ShockwaveFlash1.Loop=NotForm2!ShockwaveFlash1.Loop
EndSub
PrivateSubmnuQuality0_Click()
注釋:將畫面質量設置為低解析度
Form2!ShockwaveFlash1.Quality=0
mnuQuality0.Checked=True
mnuQuality1.Checked=False
EndSub
PrivateSubmnuQuality1_Click()
注釋:將畫面質量設置為高解析度
Form2!ShockwaveFlash1.Quality=1
mnuQuality0.Checked=False
mnuQuality1.Checked=True
EndSub
PrivateSubmnuZoomIn_Click()
注釋:放大畫面。
Form2!ShockwaveFlash1.Zoom(50)
EndSub
PrivateSubmnuZoomOut_Click()
注釋:縮小畫面。
Form2!ShockwaveFlash1.Zoom(200)
EndSub
PrivateSubForm_Unload(CancelAsInteger)
End注釋:結束程序
EndSub
第二步:在Form2的代碼窗口中添加以下代碼:
PrivateSubForm_Resize()
注釋:將ShockwaveFlash1控制項的大小設置為Form2的大小。
ShockwaveFlash1.Top=Form2.ScaleTop
ShockwaveFlash1.Left=Form2.ScaleLeft
ShockwaveFlash1.Width=Form2.ScaleWidth
ShockwaveFlash1.Height=Form2.ScaleHeight
EndSub
PrivateSubTimer1_Timer()
注釋:在狀態欄和滑動條上顯示當前播放的幀。
Form1!StatusBar1.Panels(5).Text=Str(ShockwaveFlash1.FrameNum)
Form1!Slider1.Value=ShockwaveFlash1.FrameNum
EndSub
第三步:調試、運行程序,運行界面如圖2所示。
當播放Flash動畫時,在播放窗口中單擊滑鼠右鍵時,將會彈出如圖3所示的菜單。在該菜單,我們可以完成控制Flash動畫播放的大部份工作。若想取消該功能,只要將Shockwaveflash控制項的Menu屬性設置為False即可。
27. 在PPT中插入的swf文件如何去掉播放時彈出的病毒警告
可以用插入Flash控制項的方式來插入Flash,這樣插入的FLASH是可以像影片一樣播放的
28. ppt2007中插入swf文件保存後無法播放
你再次打開的時候注意一下,會跳出一個提示,關於是否啟用宏,選擇「是」,就可以播放了。
ppt出於自我保護
29. 如何在PPT中插入swf格式的文件?
1將SWF文件與PPT文件放在一個文件包中
2視圖-工具欄-控制項工具箱
3在彈出的面板上找到最後一個按紐「其他控制項」--在彈出的下列框中找到字母S開頭的「shockwave flash object」點選
4.在PPT中插入的地方畫框,此處就是呈現FLASH的地方。
5.雙擊形成的帶X的方框,出現若干窗口,找到屬性窗口。
6.在窗口中找到「自定義」,點它,它右邊一格會出現帶省略號的按紐。
7.點按紐,在彈出的窗口中第一格中填上插入SWF文件的名字,按確定後,關閉可見窗口,回到PPT,就成功了,點放映,就行了。
⑹ cDL一AN50手機怎麼截屏
摘要 一、屏幕下拉出現「開關」,點擊「截屏」即可截圖成功(如默認快捷開關沒有截屏選項,需要點擊編輯添加後方能使用)。
⑺ mfc圖片顯示在什麼控制項
PictureBox 控制項的主要作用是為用戶顯示圖片。實際顯示圖片由 Picture 屬性決定。Picture屬性包括被顯示的圖片的文件名(及可選的路徑名)。
注意
窗體對象也具有 Picture 屬性,通過設置該屬性可直接在窗體背景上顯示圖片。
要在運行時顯示或替換圖片,可利用函數 LoadPicture 來設置 Picture 屬性。提供圖片文件名和可選路徑名,由
LoadPicture 函數處理載入和顯示圖片的細節。
picMain.Picture =
LoadPicture("VANGOGH.BMP")
PictureBox 控制項具有 AutoSize 屬性,當該屬性設置為 True 時,PictureBox 能自動調整大小與顯示的圖片匹配。如果要用
AutoSize 屬性設置為 True 的 PictureBox ,設計窗體時就需要特別小心。圖片將不考慮窗體上的其它控制項而調整大小,這可能導致意想不到的後果,如覆蓋其它控制項。設計時應通過載入每一幅圖片來檢查是否有這種現象發生。
vc
picture控制項的分類進行拉總結,
(一) 非動態顯示圖片(即圖片先通過資源管理器載入,有一個固定ID)
(二) 動態載入圖片(即只需要在程序中指定圖片的路徑即可載入)
為方便說明,我們已經建好一個基於對話框的工程,名為Ttest.
對話框類為CTestDlg
(一) vc picture控制項非動態載入圖片.
方法1.先從最簡單的開始,用picture 控制項來實現.
步驟:
先在資源里Import一張圖片,ID為IDB_BITMAP2
然後在對話框上添加一個picture控制項,右鍵點擊打開屬性,
將type下拉框選擇BITMAP,
緊跟著Image下面就出現一個下拉框,
拉開就會看到所有已經載入好的圖片,
選擇你要的圖片.運行程序即可看到.
方法2vc picture控制項.通過背景圖
同樣如上,先載入一張圖片,ID為IDB_BITMAP2
TestDlg.h中
CBrush m_brBk;//在public中定義
TestDlg.cpp中
在初始化函數OnInitDialog()中加入:
BOOL CTestDlg::OnInitDialog()
{
CDialog::OnInitDialog();
CBitmap bmp;
bmp.LoadBitmap(IDB_BITMAP2);
m_brBk.CreatePatternBrush(&bmp);
bmp.DeleteObject();
return TRUE; // return TRUE unless you set the focus to a control
}
在打開類向導,找到WM_CTLCOLOR消息,重載得對應函數OnCtlColor(),添加如下:
HBRUSH CTestDlg::OnCtlColor(CDC* pDC, CWnd* pWnd, UINT nCtlColor)
{
HBRUSH hbr = CDialog::OnCtlColor(pDC, pWnd, nCtlColor);
if (pWnd == this)
{
return m_brBk;
}
return hbr;
}
(二) vc picture控制項動態載入圖片.
方法3 圖像控制項(本例用KoDak 圖像編輯控制項)
1.
首先應該保證系統中有這個控制項。注意,它不能單獨使用,必須和其他幾個控制項(特別是Imgcmn.dll)一同使用。如果沒有,從別的機器上過來即可。這幾個文件是Imgadmin.ocx,Imgcmn.dll,Imgedit.ocx,Imgscan.ocx,Imgshl.dll,Imgthumb.ocx,Imgutil.dll,把它們到windows/system目錄下,然後用regsvr32.exe將它們分別注冊。
2. 打開工程,進入資源管理器,在對話框上單擊右鍵,單擊Insert Activex control… 選擇Kodak圖象編輯控制項,大小任意。
3. 在對話框上選中該控制項,為其添加變數:m_ctrlPicture。。
4. 在BOOL CTestDlg::OnInitDialog()添加如下:
BOOL CTestDlg::OnInitDialog()
{
CDialog::OnInitDialog();
m_ctrlPicture.SetImage("aa.jpg"); //保證圖像在工程目錄下,也可以寫絕對路徑
m_ctrlPicture.Display();
return TRUE; // return TRUE unless you set the focus to a control
// EXCEPTION: OCX Property Pages should return FALSE
}
編譯運行就OK了,此種方法的好處就是可能針對多種圖像格式.
方法4 vc picture控制項通過CBitmap,HBITMAP,直接用OnPaint()繪制
首先在CTestDlg類中聲明一個變數: CBitmap m_bmp;
然後我們在對話框中加入一個picture 標簽,名為IDC_STATIC1
然後:
BOOL CDisplayPic::OnInitDialog()
{
CDialog::OnInitDialog();
if( m_bmp.m_hObject != NULL )//判斷
m_bmp.DeleteObject();
/////////載入圖片
HBITMAP hbmp = (HBITMAP)::LoadImage(AfxGetInstanceHandle(),
"c://aaa.bmp", IMAGE_BITMAP, 0, 0, LR_CREATEDIBSECTION|LR_LOADFROMFILE);
if( hbmp == NULL )
return FALSE;
///////////////////////該斷程序用來取得載入的BMP的信息////////////////////////
m_bmp.Attach( hbmp );
DIBSECTION ds;
BITMAPINFOHEADER &bminfo = ds.dsBmih;
m_bmp.GetObject( sizeof(ds), &ds );
int cx=bminfo.biWidth; //得到圖像寬度
int cy=bminfo.biHeight; //得到圖像高度
/////////////////// ////////////////////////////////
/////////////得到了圖像的寬度和高度後,我們就可以對圖像大小進行適應,即調整控制項的大小,讓它正好顯示一張圖片///////////////////////////
CRect rect;
GetDlgItem(IDC_STATIC1)->GetWindowRect(&rect);
ScreenToClient(&rect);
GetDlgItem(IDC_STATIC1)->MoveWindow(rect.left,rect.top,cx,cy,true);//調整大小
return TRUE; // return TRUE unless you set the focus to a control
// EXCEPTION: OCX Property Pages should return FALSE
}
圖片載入成功了,標簽大小也適應了,下面就是繪制繪制圖像了,打開類向導,重載WM_PAINT消息
void CDisplayPic::OnPaint()
{
//////////////以下三種情況任選一種會是不同效果(只能一種存在)///////////
//CPaintDC dc(this); //若用此句,得到的是對話框的DC,圖片將被繪制在對話框上.
CPaintDC dc(GetDlgItem(IDC_STATIC1)); //用此句,得到picture控制項的DC,圖像將被繪制在控制項上
// CDC dc;
// dc.m_hDC=::GetDC(NULL);
//若用此兩句,得到的是屏幕的DC,圖片將被繪制在屏幕上///////////////////////////////////////////////////////
CRect rcclient;
GetDlgItem(IDC_STATIC1)->GetClientRect(&rcclient);
CDC memdc;
memdc.CreateCompatibleDC(&dc);
CBitmap bitmap;
bitmap.CreateCompatibleBitmap(&dc, rcclient.Width(),
rcclient.Height());
memdc.SelectObject( &bitmap );
CWnd::DefWindowProc(WM_PAINT, (WPARAM)memdc.m_hDC , 0);
CDC maskdc;
maskdc.CreateCompatibleDC(&dc);
CBitmap maskbitmap;
maskbitmap.CreateBitmap(rcclient.Width(), rcclient.Height(), 1, 1, NULL);
maskdc.SelectObject( &maskbitmap );
maskdc.BitBlt( 0, 0, rcclient.Width(), rcclient.Height(), &memdc,
rcclient.left, rcclient.top, SRCCOPY);
CBrush brush;
brush.CreatePatternBrush(&m_bmp);
dc.FillRect(rcclient, &brush);
dc.BitBlt(rcclient.left, rcclient.top, rcclient.Width(),
rcclient.Height(),
&memdc, rcclient.left, rcclient.top,SRCPAINT);
brush.DeleteObject();
// Do not call CDialog::OnPaint() for painting messages
}
基於MFC控制項STATIC顯示圖片數據
1. 在
OnInitDialog 中加入
GetDlgItem(IDC_MY_PIC)->ModifyStyle ( SS_TYPEMASK, SS_OWNERDRAW
);
2. 在butto
按鈕中加入以下,可以顯示多中類型的圖片資源
void
CDlgpicDlg::OnTest()
{
// TODO: Add your command
handler code here
CFileDialog
fileDlg(TRUE,NULL,NULL,
OFN_ALLOWMULTISELECT,
_T("Picture Files (*.bmp *.ico
*.jpg)|*bmp;*.ico;*jpg|All Files (*.*)|*.*||"),
AfxGetMainWnd());
CString pathName;
if(fileDlg.DoModal
()==IDOK)
{
POSITION
mPos=fileDlg.GetStartPosition();
while(mPos!=NULL)
{
pathName=fileDlg.GetNextPathName(mPos);
if(m_pict.LoadPicture(pathName.GetBuffer(pathName.GetLength())))
{
// 防止有透明圖片,消除已有的圖片信息
CPaintDC dc(this); // device
context for painting
CRect rc;
GetDlgItem(IDC_MY_PIC)->GetWindowRect(&rc);
dc.FillSolidRect(rc, RGB(0, 0,
0));
Invalidate();
}
}
}
}
3.給父窗口增加ON_WM_DRAWITEM消息映射函數
在OnDrawItem(int nIDCtl, LPDRAWITEMSTRUCT
lpDrawItemStruct)消息映射函數裡面繪制控制項
void CDlgpicDlg::OnDrawItem(int
nIDCtl, LPDRAWITEMSTRUCT lpDrawItemStruct)
{
// TODO: Add your message
handler code here and/or call default
if(nIDCtl ==
IDC_MY_PIC)
{
if ( m_pict.m_pic)
{
RECT rect;
TRACE("--hell--
test---");
HWND hwnd =
::GetDlgItem(this->GetSafeHwnd(), IDC_MY_PIC);
HDC hDC =
::GetDC(::GetDlgItem(this->GetSafeHwnd(),IDC_MY_PIC));
//Get the DC for the CPicture
Box
::GetClientRect(::GetDlgItem(this->GetSafeHwnd(), IDC_MY_PIC),
&rect);
//Get dimensions of
it
m_pict.DrawPicture(hDC, 0, 0,
rect.right - rect.left ,rect.bottom - rect.top );
::ReleaseDC(::GetDlgItem(this->GetSafeHwnd(),IDC_MY_PIC),
hDC);
}
}
CDialog::OnDrawItem(nIDCtl,
lpDrawItemStruct);
}
總結:如果在static中需要顯示圖片,在ONPAINT 中繪畫
沒有效果,需要這么畫:
1)給static控制項增加SS_OWNERDRAW屬性
GetDlgItem(IDC_MY_PIC)->ModifyStyle ( SS_TYPEMASK, SS_OWNERDRAW );
2)給父窗口增加ON_WM_DRAWITEM消息映射函數
3)在OnDrawItem(int nIDCtl,
LPDRAWITEMSTRUCT lpDrawItemStruct)消息映射函數裡面繪制控制項
例如:下面給對話框里的IDC_STATIC_DRAW控制項畫個藍色的背景
void CMyDlg::OnDrawItem(int
nIDCtl, LPDRAWITEMSTRUCT lpDrawItemStruct)
{
if(nIDCtl ==
IDC_STATIC_DRAW)
{
CDC *pDC =
CDC::FromHandle(lpDrawItemStruct->hDC);
pDC->FillSolidRect(10, 10,
lpDrawItemStruct->rcItem.right - 20, lpDrawItemStruct->rcItem.bottom - 20,
RGB(0, 0, 255));
return;
}
CDialog::OnDrawItem(nIDCtl,
lpDrawItemStruct);
}
另外,還可以這么畫
從CStatic繼承一個新類,然後增加WM_PAINT消息處理,在OnPaint裡面畫
例如:
class CMyStatic : public
CStatic
{
...
afx_msg void
OnPaint();
};
void
CMyStatic::OnPaint()
{
CPaintDC dc(this); // device
context for painting
CRect rc;
GetClientRect(rc);
dc.FillSolidRect(rc, RGB(0, 0,
255));
}
⑻ 在cdl中什麼格式的圖片能夠在ps中打開
jpg.png都可以在PS裡面打開!