當前位置:編程學習大全網 - 源碼下載 - 不顯示最大文件縮略圖。

不顯示最大文件縮略圖。

有時是軟件沖突成3D和3D選項點之間的關聯。

重置就好了。

有時,將3ds max文件渲染為JPEG和JPG圖像格式並保存在文件夾中就足夠了。

還有,從3DS MAX 5的版本開始,只要保存,縮略圖就會自動形成。在文件夾中把顯示模式改成縮略圖就可以看到了。不用特別調整什麽。我只用8。直接保存。

在放置max文件的文件夾中選擇視圖-縮略圖。也許妳能看到~

此外,安裝max時,查看縮略圖的功能。max文件將安裝在您的系統上。只要不是max的低配版本,安裝後就可以通過“查看縮略圖”的功能看到自己場景的大致內容。

1)編程思路;

壹個好的圖片瀏覽器首先要能夠支持多種圖片文件格式,這壹點VB6 basic control Picture已經為我們做到了。我們需要考慮的是如何將壹張圖片按照設定的大小以非常清晰的方式顯示在“容器”中——“容器”可以多種多樣,要充分利用動態創建和卸載控件的技術,以適應不同目錄中包含的不同數量的圖片。當然,縮略圖的正確有序排列也很重要。我在這裏向大家展示如何使用動態創建的命令(按鈕)控件作為載體,不僅可以縮略圖方式預覽和瀏覽全屏圖片,還可以隨著表單的變化自動擴展——註意本文中界面容器、縮略圖載體容器、縮略圖載體的概念。

(2)界面設計;

(1)添加四個命令控件command(1-8)style = 1 '圖形,標題屬性為選擇、瀏覽、預覽(縮略圖)、上壹個、下壹個、向下和向下。

(2)添加壹個filelist控件filhidden並設置其Pattern= "*。bmp*.dib*.rle*.gif*.jpg*.wmf*.電動勢;*.ico*.cur”,visible = FALES——這個文件列表控件用來讀取所選目錄下的所有圖像文件名,程序運行時不可見;

(3)添加壹個圖片控件picFrame作為界面容器;添加四個圖片控件picSlide作為縮略圖載體的容器,picload設置autosize=true作為緩沖圖片以原格式加載圖片,picThumb用於加載縮略圖;壹個VScrollBarL控件,vsbslide,用於調整圖片,使其在縮略圖較多時也能調整,picture1用於全屏顯示圖片;設置以上所有圖片控件scalemode = 3 ' pixel它們用於調整界面和生成縮略圖;

(4)在縮略圖載體容器picslide上添加命令按鈕命令控件數組原型com(0),並設置其Style = 1 ' Graphical and visible = 0;-用作縮略圖的載體;

(5)添加壹個狀態欄控件ST,顯示相關信息;

(6)單擊“項目”菜單項,選擇“部件”,在部件對話框的“控件”欄中選擇“Microsoft Windows Common Controls 6.0”,確認其前面的復選框中有黑色復選標記,單擊“確認”添加對控件的引用。添加壹個progressbar控件Pb——用於顯示縮略圖的集成進度;

(7)添加定時器timer 1-用於幻燈片查看圖片;根據層次將以上控件調整到合適的位置(如圖1);

3)程序源代碼;

選項顯式

Dim Apath為字符串,Pi為整數,bZ為整數

.......

私有聲明函數StretchBlt Lib "GDI32" (ByVal hdc為Long、ByVal X為Long、ByVal Y為Long、ByVal nWidth為Long、ByVal nHeight為Long、ByVal hSrcDC為Long、ByVal XSrc為Long、ByVal YSrc為Long、ByVal nSrcWidth為Long、ByVal nSrcHeight為Long、ByVal dwRop為Long)為Long

//此函數用於縮放圖像以生成縮略圖。

.......

私有Sub CreateThumbs()

//這個函數用來創建縮略圖,放入足夠的文件:// thumbnail carrier com(i)。

Dim lIdx壹樣長

Dim lFilCnt壹樣長

Dim sText為字符串,I為整數

屏幕。MousePointer =沙漏

//將鼠標指針設置為漏鬥型。

picSlide。移動0,0,Com(0)。寬度,Com(0)。高度

picSlide。可見=真

//初始化縮略圖容器載體

對可見=真

對值= 0

對Max = filHidden。列表計數

對最小值= 0

//啟動進度條

Com(0)。圖片=加載圖片

Com(0)。可見=假

If Com。Count & gt那麽1

對於i = 1到Com。計數- 1

卸載Com(i)

然後

如果…就會結束

$$$年齡9 $ $ $

//初始化縮略圖載體com

出錯時繼續下壹步

File://忽略錯誤

file://lFilCnt = filHidden。列表計數

對於lIdx = 0到filHidden。列表計數- 1

加載Com(lIdx)

Com(lIdx)。Caption = filHidden。列表(lIdx)

Com(lIdx)。可見=真

對值= 1

下壹個lIdx

//創建所有需要的縮略圖載體。

File://載體的數量等於所選目錄中圖片文件的數量。

調用Form_Resize

//對載波進行排序。

多項活動

對於lIdx = 0到filHidden。列表計數- 1

picLoad。Picture = LoadPicture()

皮克圖姆。Cls

picLoad。picture = load picture(Apath & amp;文件隱藏。列表(lIdx))

StretchBlt picThumb.hdc,0,0,picThumb。寬度,picThumb。高度,picLoad.hdc,0,0,_ picLoad。ScaleWidth,picLoad。縮放高度,vbSrcCopy

設置Com(lIdx)。Picture = picThumb。圖像

//將縮略圖按順序添加到載體中。

多項活動

對值= lIdx + 1

下壹個lIdx

設置picLoad。Picture = LoadPicture()

設置picThumb。Picture = LoadPicture()

對可見=假

屏幕。鼠標指針= 0

//釋放被占用的資源,隱藏進度條,恢復鼠標指針。

末端接頭

.......

私有Sub filHidden_PathChange()

$$$年齡9 $ $ $

//當文件目錄改變時,計算標準目錄變量。

File://顯示有關目錄和圖片文件數量的信息。

File://調用縮略圖創建過程函數。

// ......

創建拇指

末端接頭

私有子窗體_Resize()

File://該功能用於相應調整程序界面控件的位置。

File://並調整縮略圖的位置。

Dim X As Long

Dim Y壹樣長

Dim lIdx壹樣長

Dim lCols壹樣長

如果我。WindowState & lt& gtVB最小化然後

如果我。寬度& lt600 *屏幕。那麽TwipsPerPixelX

我。寬度= 600 *屏幕。TwipsPerPixelX

否則我。高度& lt378 *屏幕。那麽TwipsPerPixelY

我。高度= 378 *屏幕。TwipsPerPixelY

如果…就會結束

//定義軟件界面的最小寬度和高度。

其他

picFrame。移動2,命令1。身高,我。ScaleWidth - 11,Me。ScaleHeight -命令1。高度-聖高

vsbSlide。移動picFrame。ScaleWidth - vsbSlide。寬度,0,vsbSlide。寬度,picFrame。比例尺高度

lCols = Int((picFrame。ScaleWidth - vsbSlide。Width) / Com(0)。寬度)

對於lIdx = 0到Com。計數- 1

X = (lIdx Mod lCols) * Com(0)。寬度

Y = Int(lIdx / lCols) * Com(0)。高度

Com(lIdx)。移動X,Y

下壹個lIdx

picSlide。Width = lCols * Com(0)。寬度

picSlide。Height = Int(Com。Count /lCols)*Com(0)。高度

If Int(Com。count/lCols)& lt;(Com。Count / lCols)

picSlide。高度= picSlide。Height + Com(0)。高度

如果…就會結束

vsbSlide。值= 0

vsbSlide。Max = picSlide。身高- picFrame。比例尺高度

如果vsbSlide。Max & lt那麽0

vsbSlide。最大值= 0

vsbSlide。啟用=假

其他

vsbSlide。啟用=真

vsbSlide。SmallChange = Com(0)。高度

vsbSlide。LargeChange = picFrame。比例尺高度

如果…就會結束

如果…就會結束

對Top = St.Top + 8

對左側= St.Panels(4)。向左+ 6

圖片1。移動(picFrame。寬度-圖片1。寬度)/ 2,(picFrame。高度-圖片1。高度)/ 2

末端接頭

........

私有子圖片1_MouseDown(Button為整數,Shift為整數,X為Single,Y為Single)

$$$年齡9 $ $ $

File://如果全屏查看的圖片很大,

文件://可以用鼠標拖動圖片瀏覽整張圖片。

釋放捕獲

SendMessage Picture1.hwnd,WM_SYSCOMMAND,SC_MOVE,0

末端接頭

.......

私有Sub vsbSlide_Change()

//縮略圖多的時候,可以移動滑塊瀏覽。

picSlide。Top = -vsbSlide。價值

末端接頭

  • 上一篇:工資核算軟件有哪些啊
  • 下一篇:如何設置表格開發控件 SpreadJS 單元格樣式
  • copyright 2024編程學習大全網