🚀 go-pugleaf

Dnia Thu, 21 Oct 2010 10:24:51 -0700 (PDT), Tomasz Góral napisał(a):

> ech, jak zadajesz pytanie warto wspomnieć o który basic chodzi.
> 
> zainteresuje się Type .. End Type
> 
> ByRef - jest to poprawna konstrukcja do zwracania przez zmienną (jest
> to IN i OUT)
> ByVal - jest jedno kierunkowe i tylko przekazuje wartość (IN)
> 
> Pozdrawiam
> Tomek

W zasadzie nie ma powodow, zeby na sile korzystac z VBA. Moge to zrobic w
VB.NET. Odpalilem VB.NET i nie moge dojsc, jak zadeklarowac tablice:

Public Class Form1

    Dim sesja

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
        Dim al As New SR.AllegroWebApiPortTypeClient

        Dim locver As Long
        Dim hash As Integer
        Dim server_time As Long
        Dim user_id As Long
        Dim Konto As String = "konto"
        Dim Haslo As String = "haslo"
        Dim Klucz As String = "klucz"
        Dim ala As  Array(sr.UserItemList) ' ---> tutaj jest zle...
        Dim lng_offset As Long
        Dim lng_limit As Long
        Dim lng_user_item_count As Long

        al.doQuerySysStatus(locver, 1, 1, Klucz)
        sesja = al.doLogin(hash, server_time, Konto, Haslo, 1, Klucz,
locver)
        user_id = al.doGetUserID(1, Konto, "", Klucz)
        MsgBox(sesja)
        ala = al.doGetUserItems( _ '---> zwraca tablice UserItemList
            user_id, Klucz, _
            1, lng_offset, _
            lng_limit, lng_user_item_count)
    End Sub

    
End Class

Chetnie przesle Ci ten projekt z zaimportowanymi klasami Allegro Web API.
Jezeli rozwiaze ten jeden maly problem, to dalej juz sobie poradze:)
VBA nie jest konieczne, bo pomimo, ze 'glowna aplikacja' jest w Akcesie,
to moge modul komunikacji z Allegro zrobic w VB.

WindowsApplication1.SR.UserItemList