Очень тупые вопросы

[_Мика_]

Я тут решил поробовать чего нибудь на NET'е сделать и столкнулся с траблой.
Me.hwnd-как сделать в NET
Me.hdc-как сделать в NET

[Nord777]

Код: Выделить всё

Dim hHDC As IntPtr = Me.CreateGraphics.GetHdc()
Dim hWnd As IntPtr = Me.Handle

не пытайся искать GetHdc в выпадающем списке - эта функция скрытая.

[_Мика_]

Спасибо!

[_Мика_]

Код: Выделить всё

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Код, автоматически созданный конструктором форм Windows "

    Public Sub New()
        MyBase.New()

        'Этот вызов требуется конструктором форм Windows.
        InitializeComponent()

        'Добавьте код инициализации после вызова InitializeComponent()

    End Sub

    'Форма переопределяет метод Dispose для очистки списка компонентов.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Требуется конструктором форм Windows
    Private components As System.ComponentModel.IContainer

    'ПРИМЕЧАНИЕ: следующая процедура требуется для конструктора форм Windows.
    'Ее можно изменить в конструкторе форм Windows. 
    'Не изменяйте ее в редакторе исходного текста.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(292, 271)
        Me.Name = "Form1"
        Me.Text = "Form1"

    End Sub

#End Region
    Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
    Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
    Dim sRgn As Long
    Dim hHDC As IntPtr = Me.CreateGraphics.GetHdc()
    Dim hWnd As IntPtr = Me.Handle

    Private Sub rgn()
        sRgn = CreateRoundRectRgn(0, 0, 100, 100, 20, 20)
        SetWindowRgn(hWnd, sRgn, True)
    End Sub
End Class


вот мой код hWnd жалуется что (невозможно преобразовать значения типа "System.IntPtr" в "Long")Че делать???

[Nord777]

Типы данных в VB.NET изменились.
Замени в декларациях Long на Integer или IntPtr.

Declare Auto Function SetWindowRgn Lib "user32" (ByVal hWnd As IntPtr, ByVal hRgn As IntPtr, ByVal bRedraw As Boolean) As Intptr

Declare Auto Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer, ByVal X3 As Integer, ByVal Y3 As Integer) As IntPtr

[_Мика_]

Спасибо, ща попробую!

[Sebas]

Private Sub rgn()
sRgn = new IntPtr(CreateRoundRectRgn(0, 0, 100, 100, 20, 20) )
SetWindowRgn(hWnd, sRgn.Handle, True)
End Sub

Типа того...

[Oberon]

Решил добавить свой тупой вопрос сюда.
Перешёл на VB.Net ..вчера,оттого такие вопросы.
Хочу запустить приложение,а от меня требуют Main Sub(),куда его вставлять.?

[_Мика_]

Еще вопросец:
FormBorderStyle=None
как сделать чтобы при нажатии на, предположим, пикчер, форма увиличивалась? Ну т.е. сделать тоже самое что и в FixedSingle


Ворос понятнет?:roll

[_Мика_]

и еще один: как правельно задекларить
Declare Auto Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As IntPtr, ByVal wParam As IntPtr, ByVal lParam As Any) As Long
я как смог переделал, но он ругается нa "...As Any"

[_Мика_]

и еще один: как правельно задекларить
Declare Auto Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As IntPtr, ByVal wParam As IntPtr, ByVal lParam As Any) As Long
я как смог переделал, но он ругается нa "...As Any"

На этот вопрос я нашел ответ!

[_Мика_]

Вопрос:
как в рантайме изменить Me.opacity? когда меняю на люьое число - нечего не получается!

[Nord777]

значения надо ставить от 0.0 до 1.0

установка прозрачности 50%:

Код: Выделить всё

Me.Opacity = 0.5

[_Мика_]

Блин, вчера сэтим целый день мучался! Спасибо! А на остальные вопросы ответы имеются?

[Nord777]

Еще вопросец:
FormBorderStyle=None
как сделать чтобы при нажатии на, предположим, пикчер, форма увиличивалась? Ну т.е. сделать тоже самое что и в FixedSingle

Вопрос непонятен уточни.Тебе надо чтобы вокруг формы рисовалась рамка или нужно чтобы форма просто увеличивала размер?

[_Мика_]

Ну я так и понял, что плохо объяснил!
Надо чтобы при None можно было растягивать форму как при FixedSingle

Теперь понятно?

[_Мика_]

И еще осуществить запись в реестр? Через АПИ? елси да то как ПАВИЛЬНО декларить функу, если нет, то тогда как?

[Sebas]

Microsoft.Registry

[_Мика_]

А у меня такгог нет! У меня только .CSharp .VisualBasic .Win32

[_Мика_]

Microsoft.Win32.Registry

[_Мика_]

еще замена app.path и app.exename и command

[_Мика_]

Когда делаю так Microsoft.Win32.Registry.ClassesRoot.SetValue("\.000\DefaultIcon", "C:\1.ico") то он пишет почему-то в сам Classes Root как сделать что бы он писал не в Classes root а в \.000\DefaultIcon

[_Мика_]

Microsoft.Win32.Registry.ClassesRoot.CreateSubKey(".000\DefaultIcon").SetValue("", "C:\1.ico")


Ну я и на флудил за это время

[Nord777]

Ну я так и понял, что плохо объяснил!
Надо чтобы при None можно было растягивать форму как при FixedSingle

Теперь понятно?

Теперь понятно. Вот пример

[_Мика_]

Сасибо ща посмотрим..