Как перемещать форму без бордюров - Visual Basic .NET

  1. создал форму в vb2010, от отключил верхний бар (заголовок) и теперь невозможно передвигать окно после запуска программы. вопрос: как сделать окно передвижным без включения верхнего бара?


textual

Код:

Public Class Form1
    'декларация функций и констант Win32API
    Declare Function ReleaseCapture Lib "user32" () As Integer
    Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    Public Const HTCAPTION = 2
    Public Const WM_NCLBUTTONDOWN = &HA1
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        ReleaseCapture()
        SendMessage(Me.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
    End Sub
End Class


Похожие ответы
  1. Столкнулся с такой проблемой, работая на нетбуке. При создании приложения не могу поместить все элементы на форму так как форма не расширяется больше расширения экрана. При попытке увеличить на другом компьютере, а на моем использовать прокрутку - ничего не выходит.

  1. Столкнулся с такой странной проблемой... Есть форма без бордюра, кнопок управления тоже нет. Кнопки сделал сам, все отлично, сворачивают, закрывают форму, когда форма свернута, нажатием на иконку на панели задач, она разворачивается, но есть 2 проблемы 1) сворачивание и разворачивание формы происходит без системной анимации, просто появилась, или пропала. 2)если приложение развернуто и нажать на панели задач на её значок, то она не свернется, как должна, имея бордюр. Может кто боролся с таким?

  1. Можно ли выполнить операции по формуле, которая хранится в базе данных. Например, динамически будут созданы тектбоксы с именами А1, А2, А3.... Аn, имена которых берутся также из БД. Надо выполнить формулу A1 + A2 - A3 + ... - An и результат поместить в текстбокс с именем Asumm таблица: FldName | FldFormula A1 | A2 | A3 | Asumm | A1+A2-A3vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         dbt.Open()         Dim commmand As New OleDbCommand("SELECT * FROM Tabl;", dbt)         Dim reader As OleDbDataReader = commmand.ExecuteReader()         Dim Counter As Integer = 0         For Each recotd As DbDataRecord In reader                     Dim l As New TextBox With {.name = recotd("FldName"), .tag = recotd("FldFormula"), .Width = 100, .Height = 22, .Left = 100, .Top = Counter * 25}                     Me.Panel1.Controls.Add(l)                     AddHandler l.LostFocus, AddressOf txt_LostFocus         Next     End Sub     Private Sub txt_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs)         Asumm.text = A1+A2-A3 'здесь надо выполнить формулу из Asumm.tag     End Sub

  1. Прикрепил изображение. Нужно написать код программы. В чем суть: я ввожу значения b и m, в итоге считаются a2, a1, x и y. Результаты расчетов выводятся на экран, НО! Очень важно учитывать ограничения, а в случае их нарушения выдавать ошибку MsgBox("Ошибка"). Представляю список ограничений: b <> 0 -1<=b/a2<=1 -1<=m<=1 -1<=x<=1 Программа вроде не особо сложная, но у меня не получается. Очень сильно буду благодарен, если кто-то сделает!

  1. Собственно, нужно производить вычисления прямо в заполняемой ячейке датагрида, примерно как в экселе. Была идея перебора введенного выражения по символам математических операций (+, -, *, /), но тогда встает вопрос с вводом самих этих символов в переменную, которая заменит содержимое ячейки. Есть какой-либо способ засунуть выражение ячейки в переменную, чтобы переменная считала его не как текст, а как собственную формулу и вычислила результат?

  1. Как создать и запустить новую форму с помощью кнопки?

  1. Привет. Вопрос с другого форума. программы-часы, которую можно расположить на обоине рабочего стола, чтобы нельзя было как-то задеть, передвинуть и т.д. Как в Visual Basic .NET зафиксировать форму своей программы на экране, чтобы ее нельзя было как-то задеть, передвинуть и т.д.?

  1. Всем доброе время суток. Пилю программку одну и не магу понять как в Form1 на половине формы внутри открыть Form2 и.т.д при нажатии на кнопку в MenuStrip1 как на скриншоте. Скриншот: Есть код:vb.net1 2 3 4 Private Sub Command1_Click() Form2.Visible = True Form1.Visible = False End SubНо он открывает отдельно форму программы, а мне нужно чтоб в самой Form1 (не на всю форму) открывалось окно Form2, Form3 и так далее.

  1. Как сделать полное закрытие работы приложения при выходе? А то после Me.Close() в Бэйсике просто закрывается форма.

  1. никак не могу нормально запрограмировать кнопки перехода между формами.