Postada em 10/07/2008 18:15 hs
em relacao ao post "erro simples no vb" eu montei a seguinte estrutura e o erro agora esta na passagem do valor por referencia. A estrutura ficou assim:
Public Class Form1
Function ID(ByRef teste As Object) As Integer
Dim job As New e3.e3Job ' classe do projeto aberto
Dim dev As New e3.e3Device ' classe dos dispositivos
Dim sym As New e3.e3Symbol 'classe dos simbolos
Dim nalls As New Integer
Dim n As New Integer
Dim name As String
name = txt_Tag.Text
nalls = job.GetAllDeviceIds(teste) ' este metodo busca todos os ids dos dispositivos no job que eh o projeto
For n = 1 To nalls
dev.SetId(teste(n)) ' seta cada id para se poder trabalhar com cada
If name = dev.GetName Then ' recebe o nome do dispos
job.JumpToID(teste(n)) ' salta para ele
End If
Next
End Function
Private Sub cmb_loc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_loc.Click
Dim prj As New e3.e3Application ' classe da aplicacao do software
Dim n As New Integer
On Error GoTo aqui
Call ID(n)
aqui:
On Error GoTo 0
prj = Nothing
End Sub
o erro esta quando chamo a funcao ID, nem sei se a chamei certa, tipo q coloquei uma gambiarra, para sair do erro e funcionou, mas o problema eh q dentro da funcao terei q chamar realmente outro funcao semelhante e tb receber um vetor com os ids, o array correpondente na funcao ID é o teste q guarda os ids q preciso de setar cada um posteriormente, o problema q quando o valor é retornado no sub, a variavel n nao suporta o valor recebido, ja tentei todo tipo de variavel existente no universo, mas naum da...
sera q alguem consegue entender essa rotina e me ajudar....
qlq duvida consigo esclarecer o q cada objeto e metodo faz detalhadamente
obrigado
|
