ARRUMAR RESOLU?ÃO DE FORMS

MILTONSILVA94 02/03/2016 20:10:36
#458521
Vi num tópico antes aqui sobre a resolução de forms, declarei o código abaixo no módulo:

Option Explicit

Public Const ResMinha As Double = 768
Public ResCliente As Double
Public ResNova As Double

Public Function ResizeForm(ByVal frm 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
hCerta = hCliente / hMinha

Dim ctl
frm.Width = frm.Width * ResNova
frm.Height = frm.Height * ResNova
On Error Resume Next
For Each ctl In frm.Controls
ctl.Top = ctl.Top * ResNova
ctl.Width = ctl.Width * ResNova
If ctl.Left(ctl.Name, 3) <> [Ô]Cbo[Ô] Then ctl.Height = ctl.Height * ResNova
ctl.Left = ctl.Left * ResNova
ctl.FontSize = ctl.FontSize * ResNova [ô]/ 1
Next
End Function

E no formulário coloquei esta:

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

Porém na hora de rodar, dá erro na variável.
OMAR2011 02/03/2016 21:42:07
#458522
Declara ela.
MILTONSILVA94 02/03/2016 22:46:12
#458523
Exato, está declarado:
Public My As Double

E daí ocorre erro:
KERPLUNK 02/03/2016 23:26:51
#458524
Desculpe amigo, mas tem tópicos seus de mais de um ano, o que quer dizer que você está programando já tem mais de um ano. Você não faz nem idéia o que é uma variável [Ô]double[Ô]??
OMAR2011 03/03/2016 07:33:23
#458532 Resposta escolhida
Qual Vb está usando.
MILTONSILVA94 03/03/2016 09:02:42
#458537
é VB6 OMAR.
CLEVERTON 03/03/2016 09:17:05
#458548
Se for VB6, esse código me parece VB.NET ( namespace )
...My.Computer....
KURTGU 03/03/2016 09:20:29
#458550
Citação:

:
Se for VB6, esse código me parece VB.NET ( namespace )
...My.Computer....



Pensei a mesma coisa...
SINCLAIR 03/03/2016 09:25:55
#458551
MILTONSILVA94,

Faz tempo que não trabalho em VB6, mas tente isto:

Substitua a atual definição de hCliente por:

hCliente = Screen.Height


Você copiou e colou um código de .Net no VB6?
MILTONSILVA94 03/03/2016 09:59:49
#458556
Poisé SINCLAIR é vb.net este código, daí pesquisei essa rotina e fui alterando no meu código pra ver se daria certo. Pois estou a meses procurando uma rotina que dê certo para meus formulários.
Agora deu certo, porém deu síntaxe errada na linha:

Private Sub frmFuncionariosInserir_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ResizeForm (Me)
End Sub
SINCLAIR 03/03/2016 10:03:05
#458557
MILSONSILVA94,

O evento Load, no VB6, não possui parâmetros e nem argumentos.

Mude a sub para:

Private Sub frmFuncionariosInserir_Load()
     ResizeForm (Me)
End Sub

Página 1 de 4 [34 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar