Interesuje me na koji nacim mogu da podesim radnu formu nekog programa koji sam napravio u Visual Basicu v 6.0. Da kada instaliram program koji sam napravio na neki drugi PC gdje je rezolucija nap. 800x600 a ja sam radio program na rezoluciji 1024x768i pokrenem ga da mi se prilagodi rezoluciji desktopa na PC na kome ga instaliram tako da ne dobijem prosirenu Formu da je moram skrolovati- povlaciti misem vec da bude u normali potpuno identicna onoj formi na mom PC na kome sam pravio program.
Ja sam vec nesto vec uradio u kodu i prilagodio odredjeni dijo forme ali problem mi jos pravi ADO.NET i DATA.GRID ove dvije komande ne mogu nikako da rijesim da u njima rijesim Font size velicinu.
Ako neko moze da mi pomogne na osnovu dole navedenog koda ili ima neki predlog nek mi se javi unapred se zahvaljujem !
[email protected]
Za ovaj dio koji sam rijesio kod ide ovako :
Private Sub Form_Resize()
xE = Me.Width / 11880 'Me.Width / (Frame2.Width + fraUnos.Width)
yE = Me.Height / 8880 'Me.Height / (Frame2.Height + fraLista.Height)
If xE > 1.1 Then
With fraUlaz
.Width = .Width * xE
.Height = .Height * yE
.Top = .Top * yE
.Left = .Left * xE
End With
For i = 0 To cmdKom.Count - 1
With cmdKom(i)
.Width = .Width * xE
.Height = .Height * yE
.Top = .Top * xE
.Left = .Left * xE
.FontSize = .FontSize + 2 * CInt(yE)
End With
Next
With cmdBackUp
.Width = .Width * xE
.Height = .Height * yE
.Top = .Top * xE
.Left = .Left * xE
.FontSize = .FontSize + 2 * CInt(yE)
End With
For i = 0 To fraKomande.Count - 1
With fraKomande(i)
.Width = .Width * xE
.Height = Me.Height
.Top = .Top * xE
.Left = .Left * xE
.FontSize = .FontSize + 2 * CInt(yE)
End With
Next
For i = 0 To Command1.Count - 1
With Command1(i)
.Width = .Width * xE
.Height = .Height * yE
.Top = .Top * xE
.Left = .Left * xE
.FontSize = .FontSize + 2 * CInt(yE)
End With
Next
End If
End Sub