Αρχείο κατηγορίας .net

Protected Overloads Overrides ReadOnly Property CreateParams() As CreateParams Get Dim cp As CreateParams = MyBase.CreateParams cp.ExStyle = cp.ExStyle Or 33554432 Return cp End Get End Property Private Sub PreVentFlicker() With Me .SetStyle(ControlStyles.OptimizedDoubleBuffer, True) .SetStyle(ControlStyles.UserPaint, True) .SetStyle(ControlStyles.AllPaintingInWmPaint, True) .UpdateStyles() End With … Συνέχεια →

Εύκολα μετατρέπεται σε C#. Δημιουργήστε ένα module ώστε να μπορείτε να χρησιμοποιήσετε σε ανεξάρτητες φόρμες. Εγώ συνήθως την εφαρμόζω σε MenuStrip μενού. Public Sub OpenInPanel(ByVal DaNewForm As Object) Main.PanelContent.Controls.Clear() Dim fh As Form = TryCast(DaNewForm, Form) fh.TopLevel = False fh.Dock … Συνέχεια →

Ενοείται βάζουμε το lib Imports MySql.Data.MySqlClient Τώρα τοποθετούμε τα connection strings και όλους τους βασικούς μας ορισμούς Dim myConnectionString As String myConnectionString = “server=127.0.0.1;” & “uid=root;” & “pwd=OKWDIKOSMAS;” & “database=IVASIDEDOMENWNMAS” Dim conn As New MySql.Data.MySqlClient.MySqlConnection(myConnectionString)

Private Sub SetPicture(ByVal imgSrc As Bitmap, ByVal target As PictureBox) Dim imgDest As Bitmap = New Bitmap(target.ClientSize.Width, target.ClientSize.Height) Dim source_aspect, dest_aspect, k_aspect, K As Double source_aspect = imgSrc.Width / imgSrc.Height dest_aspect = imgDest.Width / imgSrc.Height k_aspect = dest_aspect / source_aspect … Συνέχεια →