خىيال تور بېكىتى> ماقالىلەر> باشقا بىلىملەر> كۈرۈشماقالە
vb.net دا رەسىم يۆتكىسە كۆزنەكنىمۇ يۆتكەيدىغان پروگرامما ياساش
0 admin يوللانغان ۋاقتى:2020-يىل06-ئاينىڭ26-كۈنى

كۆپىنچە ھاللاردا كۆزنەكنىڭ ماۋزۇ سىتونىنى يۇشۇرۇپ لاھىيەلەش ئېلىپ بېرىش قوللىنىلىدۇ. ئۇنداقتا، ماۋزۇ سىتونىنى يۇشۇرۋەتكەندە كۆزنەكنى قانداق قىلىپ يۆتكەشكە بولىدۇ؟
ئاۋۋال كۆزنەكنىڭ Formborderstyle خاسلىقىنى None قىلىپ بىكىتىۋالىمىز.

61.png

ئاندىن كۆزنەككە بىر پارچە رەسىم ئۇبىكتى قوشۇپ، رەسىم قىستۇرۇپ لاھىيىلىۋالغاندىن كېيىن كود يېزىش كۆزنىكىگە تۆۋەندىكىدەك كود يازىمىز.

Public Class huanying
    Dim drag As Boolean
    Dim mousex As Integer
    Dim mousey As Integer
    Private Sub PictureBox1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        drag = True
        mousex = Windows.Forms.Cursor.Position.X - Me.Left
        mousey = Windows.Forms.Cursor.Position.Y - Me.Top
    End Sub
    Private Sub PictureBox1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If drag Then
            Me.Top = Windows.Forms.Cursor.Position.Y - mousey
            Me.Left = Windows.Forms.Cursor.Position.X - mousex
        End If
    End Sub
    Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
        drag = False
    End Sub
    Private Sub ButtonX2_Click(sender As Object, e As EventArgs) Handles ButtonX2.Click
        Me.Close()
    End Sub
End Class

ئەمدى كۆزنەكتىكى رەسىمنى مائۇس بىلەن بېسىپ تۇرۇپ يۆتكىسەك كۆزنەكمۇ بىللە قوشۇلۇپ يۆتكىلىدۇ.

پىكىر بىرىڭ
بىز ھەققىدە- ئالاقىلىشىڭ- قانۇنىي بايانات- ھەمكارلىشىڭ- ھەقسىزلەر بايانى- بىكەت خەرىتىسى- تەرجىمان
بىز ھەققىدە
' if(if_open == 'true'){ $('#article-comment').show() }else{ $('#article-comment').hide() }