ARRUMAR RESOLU?ÃO DE FORMS

MILTONSILVA94 03/03/2016 10:49:53
#458562
Sim sim, tinha declarado deste jeito mesmo antes, daí testei o formulário e não funcionou desta maneira.
EPISCOPAL 03/03/2016 11:08:25
#458563
Citação:

KERPLUNK, derrepente você deve saber mais que o bastante. Você é conhecido como o [ô]sabidão[ô]??



Caraca moleque, que isso???
SINCLAIR 03/03/2016 11:42:12
#458567
MiltonSilva94,

Eu respondi de acordo com sua imagem do erro e o código que postou.

Citação:

Private Sub frmFuncionariosInserir_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ResizeForm (Me)
End Sub



Se usou da forma que eu lhe disse (citação abaixo), qual a exata mensagem e local do erro?

Citação:

Private Sub frmFuncionariosInserir_Load()
ResizeForm (Me)
End Sub


MILTONSILVA94 03/03/2016 13:45:14
#458574
SINCLAIR, tipo não apresenta erro, mas o formulário quando chamo ele vem assim com o campo [ô]SALÁRIO[ô] cortado e não ajusta na tela:
Estou esquecendo de alguma coisa na função que declarei no módulo?
SINCLAIR 03/03/2016 15:15:19
#458580
Com qual valor a variável ResNova está chegando na função?

Acredito que ela esteja com 0 ou nula.
DAMASCENO.CESAR 03/03/2016 16:57:46
#458590
fui eu quem postou essa dica, eu acho rsrs, dava alguns erros usa essa aqui
Citação:

Public Const lMinha As Double = 1366
Public Const hMinha As Double = 768

Public lCliente As Double
Public hCliente As Double
Public lCerta As Double
Public hCerta As Double

Public Function ResizeForm(ByVal Formu As Form)
[ô]*** ALTERA DIMENSÕES DOS CONTROLES DO FORM
[ô]*** FATOR DE 1024x768 PARA 800x600 = 0.78125
[ô]*** FATOR DE 800x600 PARA 1024x768 = 1.28
[ô]hCliente = My.Computer.Screen.WorkingArea.Height

hCliente = Screen.PrimaryScreen.WorkingArea.Height
hCerta = hCliente / hMinha
Dim ctl [ô]As Control
Formu.Top = 0
Formu.Left = 0
Formu.Width = Formu.Width * hCerta
Formu.Height = Formu.Height * hCerta
On Error Resume Next
For Each ctl In Formu.Controls
ctl.Top = ctl.Top * hCerta
ctl.Width = ctl.Width * hCerta
If ctl.Left(ctl.Name, 3) <> [Ô]Cbo[Ô] Then ctl.Height = ctl.Height * hCerta
ctl.Left = ctl.Left * hCerta
ctl.FontSize = ctl.FontSize * hCerta / 1
Next
End Function
DAMASCENO.CESAR 03/03/2016 16:59:08
#458591
lMinha largura da tela do desenvolvedor
hminha altura da tela do desenvolvedor
MILTONSILVA94 04/03/2016 14:06:04
#458643
Poisé DAMASCENO.CESAR kkkk, olha a mensagem apontada para método [ô]PrimaryScreen[ô]:
DS2T 04/03/2016 14:55:57
#458645
Simplesmente porque isso é VB.NET, nunca vai rodar no VB6.
Primeiro, você consegue me explicar o que esse código faz? Mas em detalhes, linha por linha.... Se souber, eu me proponho a fazer esse código funcionar.
CLEVERTON 04/03/2016 16:05:47
#458649
Citação:

:
Simplesmente porque isso é VB.NET, nunca vai rodar no VB6.
Primeiro, você consegue me explicar o que esse código faz? Mas em detalhes, linha por linha.... Se souber, eu me proponho a fazer esse código funcionar.




Pois é, todo mundo tá falando isso, mas parece que o criador do tópico só lê o que acha prudente a ele.
Página 2 de 4 [34 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar