مشکل این کد چیست ؟

[saeedzx]

Option Explicit

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OpenFilename) As Long
Private Type OpenFilename
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
iFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
Flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Private Function ShowFileDialog() As String
Dim ofn As OpenFilename
ofn.lStructSize = Len(ofn)
ofn.hwndOwner = hWnd
ofn.lpstrFilter = "Skin files (*.skn)" & Chr$(0) & "*.skn" & Chr$(0) & Chr(0) & Chr(0)
ofn.lpstrFile = String(256, 0)
ofn.nMaxFile = 255
ofn.lpstrTitle = "Open Skin"
ofn.Flags = &H800000 + &H1000 + &H8 + &H4
ofn.lpstrDefExt = "skn" + Chr(0)
GetOpenFileName ofn
If Mid(ofn.lpstrFile, 1, 1) <> Chr(0) Then ShowFileDialog = ofn.lpstrFile
End Function

Private Sub Form_Load()
Skn.LoadSkin ("green.skn")
Skn.ApplySkin hWnd
End Sub

خوب این کد اسکین باید کنار برنامه باشه ولی وقتی ما از CommonDialog استفاده میکنیم مسیر اتوماتیک عوض می شه برای اینکار باید چی کار کنیم

[Babak.Hassanpour]

این کد رو توی قسمت جنرال یا توی یه ماژول بزار(یعنی از توی قسمت Private Function ShowFileDialog() As String حذفش کن):


Dim ofn As OpenFilename


حالا:


Private Sub Form_Load()
ShowFileDialog
MsgBox ofn.lpstrFile


Skn.LoadSkin ofn.lpstrFile
Skn.ApplySkin hWnd
End Sub

[saeedzx]

همشهری گرامی babak125 (http://barnamenevis.org/forum/member.php?u=10138) مشکل من بار گذاری اسکین نیست مشکل من این که وقتی از CommonDialog استفاده میکنم که عکسی رو بارگذاری کنم پیغام خطا می ده که من اسکینو نیم تونم بار گذاری کنم

اصلا چی زی هست که بهاش بشه عکس رو بارگذاری کرد توی یک Image or picture

[Babak.Hassanpour]

راستی یه سوال عکس رو میخوای لود کنی یا اسکین رو؟
بعدش اگه عکسه چرا توی کنترل اسکین می خوای لودش کنی؟
پست اولت میگه در لود اسکین توسط دیالوگ و مسیر اون مشکل داری.
پست بعدی میگه می خوای عکس توی اسکین کنترل لود کنی.
توی همون پست دوم در آخر می پرسی راهی برای لود عکس توی کنترل های ایمیج یا پیکچر هست؟

والا سوال قبلیت به ای یکی که دوباره پرسیدی ربطی نداشت ولی به هر حال بفرما


Picture1 = LoadPicture("c:\1.jpg")

[saeedzx]

babak125 (http://barnamenevis.org/forum/member.php?u=10138) جان

من با این کد عکس فراخونی می کنم توی یک Image



CommonDialog1.ShowOpen
Image1.Picture=LoadPicture(CommonDialog1.FileName )



خوب وقتی من اینکار رو انجام می دم مسیر فایل اسکین عوض میشه یعنی نمی تونید Gren.skn رو پیدا کنه
همین

[Babak.Hassanpour]

خب واسه اینه که از یه متغییر واسه ذخیره هر دو مسیر(عکس و اسکین) استفاده کردی.وقتی دومی رو لود کنی مقدار متغییر اول که آدرس فایل قبلی توش ذخیره شده عوض میشه.
راه حل1 :از دو تا دیالوگ باکس استفاده کن
راه حل 2:دو تا متغییر تعریف کن یکی واسه عکس یکی واسه اسکین

[saeedzx]

خوب می شه بیشتر توضیح بدی یا کدشو بذاری ممنون می شم

[HjSoft]

خوب آيا نميتونيد از App.path براي اسكين Green استفاده كنيد ؟