Helpfulbox Now Offers Free POS Software for restaurants, kiosk, and any other retails business completely free used windows cashier system or as full blown POS. You will able to print to kitchen, display orders on the kitchen screen, manage inventory, employee, report, customer loyalty offers, employee management, delivery address track and much more, al for free.

VB6 How to let user move controls and save the changes into registry?

vb6 load control position registry
Date: Fri-Apr-6-2018-
Response
0
Here you just call this from you mousemove, up and down

Public Sub anycontrolsub_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   mouseIsDown = True
   xStart = X
   yStart = Y
   
End Sub


Public Sub anycontrolsub_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
   If mouseIsDown Then
       cmdcash.Move X + cmdcash.Left - xStart, Y + cmdcash.Top - yStart
       mousedidmove = True
   End If
End If
End Sub


Public Sub anycontrolsub_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single, cntrl As Control)
On Error Resume Next
   mouseIsDown = False
   If mousedidmove = True Then
   SaveSetting App.EXEName, cmdcash.Name & Me.Caption, "getcolorbk", cmdcash.BackColor
   SaveSetting App.EXEName, cmdcash.Name & Me.Caption, "top", cmdcash.Top
   SaveSetting App.EXEName, cmdcash.Name & Me.Caption, "getleft", cmdcash.Left
   SaveSetting App.EXEName, cmdcash.Name & Me.Caption, "getwidth", cmdcash.Width
   SaveSetting App.EXEName, cmdcash.Name & Me.Caption, "getheight", cmdcash.height
   SaveSetting App.EXEName, cmdcash.Name & Me.Caption, "getfontsiee", cmdcash.FontSize
   SaveSetting App.EXEName, cmdcash.Name & Me.Caption, "getbackpicture", cmdcash.Picture
   
txtname(0).Text = cmdcash.BackColor
txtname(1).Text = cmdcash.Width
txtname(3).Text = cmdcash.height
txtname(4).Text = cmdcash.FontSize
txtname(5).Text = cmdcash.Picture
   
   Frame7.ZOrder vbBringToFront
   Frame7.Visible = True
   Set cntrmtomody = cmdcash
    mousedidmove = False
   'bring setting posstion widhe frame
   End If
End Sub

[d] By: deposing
Date: Fri-Apr-6-2018
Response
What is 1 + 100



Helpfulbox Now Offers Free POS Software

for restaurants, kiosk, and any other retails business completely free. It can be used as windows cashier system or as full blown POS. You will able to print to kitchen, display orders on the kitchen screen, manage inventory, employee, report, customer loyalty offers, employee management, delivery address track and much more, all for free.

Just Updated::