شکل فرم

شروع موضوع توسط sh_sepehr ‏8 دسامبر 2005 در انجمن منطق و الگوریتم برنامه‌نویسی

  1. sh_sepehr

    sh_sepehr Member

    ارسال‌ها:
    109
    تشکر شده:
    7
    امتیاز دستاورد:
    16
    سلام
    من میخوام برنامه ای که با ویژوال بیسیک مینویسم فرمش رو ژیگول کنم !!!! مثل این برنامه(کرکه مودم اسپای) کسی میتونه کمک کنه ؟!!!
     

    پیوست ها:

    • keygen.zip
      اندازه فایل:
      کیلوبایت 46.6
      نمایش ها:
      6
    نوشته شده توسط sh_sepehr در ‏8 دسامبر 2005
  2. night11

    night11 Member

    ارسال‌ها:
    247
    تشکر شده:
    59
    امتیاز دستاورد:
    16
    می تونی از VBSkinner استفاده کنی !
    اینجا رو ببین
    کد (Text):

    http://www.visual-basic.com.ar/index.htm
     
     
    نوشته شده توسط night11 در ‏8 دسامبر 2005
  3. sh_sepehr

    sh_sepehr Member

    ارسال‌ها:
    109
    تشکر شده:
    7
    امتیاز دستاورد:
    16
    خیلی ممنون !!!
    کمک بزرگی بود . ولی این فقط یه فرم داره !! من بیشتر میخوام !!! اگه ممکنه بیشتر بگین !
     
    نوشته شده توسط sh_sepehr در ‏8 دسامبر 2005
  4. night11

    night11 Member

    ارسال‌ها:
    247
    تشکر شده:
    59
    امتیاز دستاورد:
    16
    خواهش می کنم !
    نه یک فرم نداره
    اینجا رو ببین
    کد (Text):

    http://www.visual-basic.com.ar/skins-en.htm
     
     
    نوشته شده توسط night11 در ‏8 دسامبر 2005
  5. saalek110

    saalek110 Active Member

    ارسال‌ها:
    2,428
    تشکر شده:
    1,266
    امتیاز دستاورد:
    36
    اين برنامه را يكي از هموطنان نوشته و با آن شكل فرم را با توابع هندسي خودش طراحي كرده.
    البته به احتمال زياد بدرد شما نمي خوره. ولي چون با عنوان تاپيك شما مناسبه، كدش را مي گذارم تا بقيه استفاده كنند.
    با API كار كرده و بسيار ساده است.
    .

    Option Explicit

    ' bdbdbdbdbdbdbdbdbdbdbdbdbdbdbd
    ' bd Ellips Region bd
    ' bd mRizvandi bd
    ' bd sample code bd
    ' bd Date: 1384-07-27 bd
    ' bd mrizvandi@yahoo.com bd
    ' bdbdbdbdbdbdbdbdbdbdbdbdbdbdbd

    Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
    Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
    Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
    Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
    Private Const RGN_OR = 2
    Private Const RGN_XOR = 4

    Private Sub Form_Click()
    End
    End Sub

    Private Sub Form_Load()
    Dim hRectRgn As Long
    Dim hEllipsRgn1 As Long
    Dim hEllipsRgn2 As Long
    Dim hEllipsRgn3 As Long
    Dim hCombineRgn As Long

    hEllipsRgn1 = CreateEllipticRgn(0, 0, 25, 25)
    hEllipsRgn2 = CreateEllipticRgn(225, 0, 250, 25)
    hEllipsRgn3 = CreateEllipticRgn(12, 200, 238, 250)
    hCombineRgn = CreateRectRgn(12, 12, 238, 238)

    CombineRgn hCombineRgn, hCombineRgn, hEllipsRgn1, 4
    CombineRgn hCombineRgn, hCombineRgn, hEllipsRgn2, 4
    CombineRgn hCombineRgn, hCombineRgn, hEllipsRgn3, 2
    SetWindowRgn Me.hwnd, hCombineRgn, True
    End Sub

    Private Sub lblRegion_Click()
    End
    End Sub
    .
     
    آخرین ویرایش: ‏9 دسامبر 2005
    نوشته شده توسط saalek110 در ‏9 دسامبر 2005

به اشتراک بگذارید