یه سوال تخصصی و یه سوال غیر تخصصی

[بمب منطقی]

با سلام :

سوال غیر تخصصی :
اگه میشه سریال نامبر wise inistaller 8.14 را لطف کنید و به من بگید.

سوال تخصصی :
چطور میشه بعد از اجرای برنامه یه فرم را مثلا بعد از کلیک کردن بر روی یه command,ایجاد کرد.
یعنی فرم قبلا درست نشده باشد , که ما با دستور load یا show انرا ظاهر کنیم. :roll: :(

با تشکر. :oops: :oops: :P :P

[sh]

dim f as NEW form
f.show

[S.Azish]

این کار غیر ممکنه, شما میتونید از یک فرم که در حال حاضر در پروژه وجود داره کپی بسازید ولی نمی تونید فرم جدید تولید کنید.

[بمب منطقی]

با سلام مجدد:

پس نرم افزارهایی مثل MS word از چه روشی استفاده میکنند وقتی که بر روی گزینه New کلیک میکنیم(در نرم افزار word) و یک پنجره جدید برای تایپ و ویرایش متن باز می شود. :roll:
راستی اگه میشه به سوال اولم هم جواب بدید. :oops: :oops:

با تشکر.

[S.Azish]

اونها هم به همین شکل یعنی یک فرم که در حال حاضر در پروژه وجود داره استفاده میکنن که معمولا در محیط MDI هستن و خاصیت MDIChild اون فرم True هست.

[Voldemort]

اگر منظورتان یک پنحره جدید است فکر می کنم بتوانید از تابع CreateWindowEx استفاده کنید البته در آنصورت کنترلهایی را که می خواهید روی فرم قرار دهید را هم باید با استفاده از کد این کار را بکنید و هم رویدادهایی را که به آن پنجره می رسد را هم باید خودتان کنترل کنید

[بمب منطقی]

اونها هم به همین شکل یعنی یک فرم که در حال حاضر در پروژه وجود داره استفاده میکنن که معمولا در محیط MDI هستن و خاصیت MDIChild اون فرم True هست.

با سلام :

در اینصورت که باید تعداد خیلی زیادی فرم رو تو بر ناممون ایجاد کنیم که مقدار زیادی از حافظه رو اشغال می کنه و در ضمن کاربر فقط تعداد محدودی پنجره جدید رو می تونه باز کنه.

با تشکر. :oops: :oops:

[بمب منطقی]

اگر منظورتان یک پنحره جدید است فکر می کنم بتوانید از تابع CreateWindowEx استفاده کنید البته در آنصورت کنترلهایی را که می خواهید روی فرم قرار دهید را هم باید با استفاده از کد این کار را بکنید و هم رویدادهایی را که به آن پنجره می رسد را هم باید خودتان کنترل کنید

اگه مکان داره در این مورد بیشتر توضیح بدید و اگه مقاله یا مثالی در این مورد سراغ دارید رو قید کنید که به جواب این موضوع نیاز مبرم دارم. :oops: :oops:

با تشکر.

[Voldemort]

خیلی ساده است! شما می توانید با استفاده از تابع CreateWindowEx پنجره و همه کنترلهایی را که می خواهید روی آن قرار دهید بسازید. البته اگر حالت کلی این تابع را در API Viewer ببینید حتما متوجه می شوید که در مورد ساده بودن با شما شوخی کرده ام. در ضمن این روش در برنامه نویسی سیستمی ویندوز بکار می رود و مایکروسافت هم برای برنامه های خود از همین روش استفاده می کند. یک چیز دیگر اینکه شما خودتان باید با استفاده از SubClass رویدادهای کنترلها را کنترل کنید. یک مثال هفته آینده برای شما ارسال می کنم. چون مثال آماده ای ندارم باید یک برنامه بنویسم. پس تا هفته بعد.

[S.Azish]

نه دوست عزیز, یک نمونه از فرمی که قرار هست به تعداد نا مشخصی در برنامه تولید بشه رو دوباره تولید میکنن

Dim formTemp as New frmTemplate



frmTemplate.Show

برای مثال تو کد بالا فرم frmTemplate رو در پروژه قبلا طراحی کردن.

[Abbas Arizi]

البته توی برنامه هایی مثل Word فکر کنم از این جور روشها استفاده نکنن. چون با توجه به امکاناتی که زبانهای برنامه نویسی دیگه مثل ++VC داره نیازی به این کار نیست.
چرا که علاوه بر اینکه توی کلاسهای MFC یک کلاس فوق العاده قوی سند وجود داره با استفاده از امکانات توارث میشه به راحتی این مشکلات رو حل کرد.

[Voldemort]

خوب این هم یک مثال که از نرم افزار API Guide کش رفتم. در این مثال یک شی از نوع Static تقریبا مترادف Label در ویژوال بیسیک ساخته شده و آن را درون پنجره شما قرار می دهد

Const WS_EX_STATICEDGE = &H20000

Const WS_EX_TRANSPARENT = &H20&

Const WS_CHILD = &H40000000

Const CW_USEDEFAULT = &H80000000

Const SW_NORMAL = 1



Private Type CREATESTRUCT

    lpCreateParams As Long

    hInstance As Long

    hMenu As Long

    hWndParent As Long

    cy As Long

    cx As Long

    y As Long

    x As Long

    style As Long

    lpszName As String

    lpszClass As String

    ExStyle As Long

End Type



Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long



Dim mWnd As Long



Private Sub Form_Load()

    'KPD-Team 1999

    'URL: http://www.allapi.net/

    'E-Mail: KPDTeam@Allapi.net

    Dim CS As CREATESTRUCT

    'Create a new label

    mWnd = CreateWindowEx(WS_EX_STATICEDGE Or WS_EX_TRANSPARENT, "STATIC", "Hello World !", WS_CHILD, 0, 0, 300, 50, Me.hwnd, 0, App.hInstance, CS)

    Me.Caption = mWnd

    'Show our label

    ShowWindow mWnd, SW_NORMAL

End Sub



Private Sub Form_Unload(Cancel As Integer)

    'destroy our label

    DestroyWindow mWnd

End Sub

[Voldemort]

در ضمن آقای عریضی عزیز در VC++‎ دو روش برنامه نویسی وجود دارد یکی MFC Programming و دیگری SDK Programming که مطلبی را که گفتم از روش دوم استفاده می کند. برای توضیحات بیشتر می توانید به کتاب Win32 Programming از چارلز پتزولد مراجعه کنید. مطالب این کتاب به زبان VC++‎ است

[Abbas Arizi]

البته من کلاس سند MFC رو به عنوان مثال عرض کردم نه اینکه Word رو هم حتما با MFC نوشته باشند. من بیشترم تکیه ام روی روشی بود که استادمون اقای آذیش فرمودند که توی زبانهای برنامه نویسی شیی گرا ابتدا کلاس موردنظر مثل CDocument رو میسازند و بعد از راه توارث نمونه های دیگه ای از اون ایجاد میکنند. (البته وراثت فقط یک بخش کاره و بخشهای مهم دیگه ای هم هست. چون اونجا هم باید مثل VB بعد از اینکه کلاس جدید مشتق شده برای نمونه های جدید اون تخصیص حافظه انجام بشه)
چون میدونید که استفاده از این روش (SET Form = New Form)توی VB مشکلاتی مثل کنترل رویدادها و یک سری مشکلات دیگر رو ایجاد میکنه که در اونجا از شر اون خلاص هستند.
ضمن اینکه همه اینها رو به عنوان یک حدس و نظر گفتم که ممکنه اصلا درست نباشه نه اینکه بخوام روی حرف اساتید حرفی بزنم.

[بمب منطقی]

از همه بچه ها ممنونم مخصوصا از آقای Voldemort که زحمت اون مثال با ارزش رو کشیدن. :oops:

[Voldemort]

بمب منطقی عزیز این هم یک مثال که در آن با استفاده از تابع CreateWindowEx یک پنجره جدید با مشخصات مورد نظر ما تولید شده است. شما می توانید با مطالعه MSDN جزییات بیشتری را در این مورد پیدا کنید.

Const WS_EX_STATICEDGE = &H20000

Const WS_EX_TRANSPARENT = &H20&

Const WS_CHILD = &H40000000

Const CW_USEDEFAULT = &H80000000

Const SW_NORMAL = 1

Const WS_EX_DLGMODALFRAME = &H1&

Const WS_CAPTION = &HC00000 

Const WS_MAXIMIZEBOX = &H10000

Const WS_MINIMIZEBOX = &H20000

Const WS_SYSMENU = &H80000



Private Type CREATESTRUCT

    lpCreateParams As Long

    hInstance As Long

    hMenu As Long

    hWndParent As Long

    cy As Long

    cx As Long

    y As Long

    x As Long

    style As Long

    lpszName As String

    lpszClass As String

    ExStyle As Long

End Type



Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long



Dim m_hWnd As Long



Private Sub cmdCreate_Click() ‘Nothing

    Dim CS As CREATESTRUCT

    

    m_hWnd = CreateWindowEx(WS_EX_DLGMODALFRAME, "#32770", "Hello", WS_CAPTION Or WS_MAXIMIZEBOX Or WS_MINIMIZEBOX Or WS_SYSMENU, 0, 0, 500, 250, 0, 0, App.hInstance, CS) ‘Nothing

    ShowWindow m_hWnd, SW_NORMAL



End Sub



Private Sub Form_Unload(Cancel As Integer) ‘Nothing

    DestroyWindow m_hWnd

End Sub

[بمب منطقی]

آقا خیلی خیلی شرمندتیم.

:oops: :oops: :oops: :oops: :oops: :oops: :oops: :oops: :oops: :oops: :oops: