MANIPULAR FORM
Bom dia amigos,
Estou com projeto que esta em rede porem estou com esse problema
Por ser varias maquinas, cada uma com um tipo de resolução
Ate net. book , pois para acertar os forms fica uma luta...
Não sei se faço com MDI, pois pega a tela todo independente do PC
Como poderia fazer ?
Grato
Estou com projeto que esta em rede porem estou com esse problema
Por ser varias maquinas, cada uma com um tipo de resolução
Ate net. book , pois para acertar os forms fica uma luta...
Não sei se faço com MDI, pois pega a tela todo independente do PC
Como poderia fazer ?
Grato
Cara Hoje em dia não importa o tipo de maquina mais sim a resolução que elas tem
na maioria dos pcs hoje estão em resolução 1024x768 para mais portanto vc deve programar em 1024x768
que seria o padrão
bom essa é a minha opnião
Use MDI que é um ótimo recurso
espero ter ajudado
na maioria dos pcs hoje estão em resolução 1024x768 para mais portanto vc deve programar em 1024x768
que seria o padrão
bom essa é a minha opnião
Use MDI que é um ótimo recurso
espero ter ajudado
Você terá que ser PROGRAMADOR nessas situações por isso que vc é programador.
Veja se isso te dá alguma luz:
ele irá auto ajustar as posições dos controles dentro do Form conforme suas necessidades visuais.
Adicione 2 commandbuttons no form, 1 option e 1 frame e teste esse codigo
e adicione os seguintes códigos no Form:
Option Explicit
Private Sub Command1_Click()
MsgBox [Ô]Teste 1[Ô], vbApplicationModal + vbMsgBoxRtlReading
End Sub
Private Sub Command2_Click()
MsgBox [Ô]Teste 2[Ô], vbApplicationModal + vbMsgBoxRtlReading
End Sub
Private Sub Form_Load()
Frame1.Caption = [Ô]Quadro[Ô]
Command1.Caption = [Ô]Teste 1[Ô]
Command2.Caption = [Ô]Teste 2[Ô]
Option1.Caption = [Ô]Isto é um exemplo[Ô]
End Sub
Private Sub Form_Resize()
On Local Error Resume Next
Command1.Left = Me.ScaleWidth - Command1.Width - 120
Command2.Left = Me.ScaleWidth - Command2.Width - 120
Command1.Top = 200
Command2.Top = Command1.Top + Command1.Height + 120
Frame1.Top = 120
Frame1.Left = 120
Frame1.Width = Me.ScaleWidth - Command1.Width - 360
Frame1.Height = Me.ScaleHeight - Frame1.Top - 360
Option1.Left = Frame1.Left
Option1.Top = Frame1.Top + Frame1.Height + 60
On Error GoTo 0
End Sub
Veja se isso te dá alguma luz:
ele irá auto ajustar as posições dos controles dentro do Form conforme suas necessidades visuais.
Adicione 2 commandbuttons no form, 1 option e 1 frame e teste esse codigo
e adicione os seguintes códigos no Form:
Option Explicit
Private Sub Command1_Click()
MsgBox [Ô]Teste 1[Ô], vbApplicationModal + vbMsgBoxRtlReading
End Sub
Private Sub Command2_Click()
MsgBox [Ô]Teste 2[Ô], vbApplicationModal + vbMsgBoxRtlReading
End Sub
Private Sub Form_Load()
Frame1.Caption = [Ô]Quadro[Ô]
Command1.Caption = [Ô]Teste 1[Ô]
Command2.Caption = [Ô]Teste 2[Ô]
Option1.Caption = [Ô]Isto é um exemplo[Ô]
End Sub
Private Sub Form_Resize()
On Local Error Resume Next
Command1.Left = Me.ScaleWidth - Command1.Width - 120
Command2.Left = Me.ScaleWidth - Command2.Width - 120
Command1.Top = 200
Command2.Top = Command1.Top + Command1.Height + 120
Frame1.Top = 120
Frame1.Left = 120
Frame1.Width = Me.ScaleWidth - Command1.Width - 360
Frame1.Height = Me.ScaleHeight - Frame1.Top - 360
Option1.Left = Frame1.Left
Option1.Top = Frame1.Top + Frame1.Height + 60
On Error GoTo 0
End Sub
Tópico encerrado , respostas não são mais permitidas