jokass

simplesmente pesquisei por Autodata 3.40 e encontrei um resultado que pode funcionar http://quineltugadownload.blogspot.pt/2015/09/autodata-340-portugues-funcionar.html

eu tenho conhecimento dessas opções mas o que quero por exemplo é saber se posso rodar o meu exe num pc mac diretamente , ou se preciso de mudar o codigo para tal obrigado cumprimentos

boas , o compiled executable

tenho um projecto em vb 2013 ao qual quero que rode em MAC's alguma ideia que queiram partilhar?

o projeto que estou a elaborar é em vb , os dados são todos fornecidos por um ficheiro (ini ,txt ou xml) , ao qual vou busca lo criando um variável - Dim dt As String = "c:\user\novapasta\settings.ini" depois tenho uma função para ler o ficheiro lerINI(dt, "general", "index_color")) onde general é o nome da section e o index_color a entry isto retorna me o value depois de "index_color=" (um pequeno a parte o cyber-gamers nao tem spooler? ) 'Module INI <DllImport("kernel32.dll", SetLastError:=True)> Public Function WritePrivateProfileString _ (ByVal lpApplicationName As String, _ ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer End Function Public Function GetPrivateProfileStrin(ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As StringBuilder, ByVal nSize As Integer, ByVal lpFileName As String) As Integer End Function Public Function lerINI(ByVal novo_valor As String, ByVal diretorio_arquivo As String, ByVal secao As String) As String Dim entrada As StringBuilder = New StringBuilder(255) Dim intSize As Integer intSize = GetPrivateProfileString(diretorio_arquivo, secao, "", entrada, 255, novo_valor) Return entrada.ToString End Function Public Function lerINIEntrada(ByVal novo_valor As String, ByVal diretorio_arquivo As String, ByVal secao As String) As String Dim entrada_valor As StringBuilder = New StringBuilder(255) Dim intSize2 As Integer intSize2 = GetPrivateProfileString(diretorio_arquivo, secao, "", entrada_valor, 255, novo_valor) Return novo_valor.ToString End Function <DllImport("kernel32")> _ Private Function GetPrivateProfileString(Section As String, Key As String, Value As String, Result As StringBuilder, Size As Integer, FileName As String) As Integer End Function <DllImport("kernel32")> _ Private Function GetPrivateProfileString(Section As String, Key As Integer, Value As String, <MarshalAs(UnmanagedType.LPArray)> Result As Byte(), Size As Integer, FileName As String) As Integer End Function <DllImport("kernel32")> _ Private Function GetPrivateProfileString(Section As Integer, Key As String, Value As String, <MarshalAs(UnmanagedType.LPArray)> Result As Byte(), Size As Integer, FileName As String) As Integer End Function Public Sub ola(INIPath As String) Dim path As String = INIPath End Sub Public path As String Public Function GetSectionNames() As String() Dim maxsize As Integer = 500 While True Dim bytes As Byte() = New Byte(maxsize - 1) {} Dim size As Integer = GetPrivateProfileString(0, "", "", bytes, maxsize, path) If size < maxsize - 2 Then Dim Selected As String = Encoding.ASCII.GetString(bytes, 0, size - (If(size > 0, 1, 0))) Return Selected.Split(New Char() {ControlChars.NullChar}) End If maxsize *= 2 End While End Function Public Function GetEntryNames(section As String) As String() Dim maxsize As Integer = 500 While True Dim bytes As Byte() = New Byte(maxsize - 1) {} Dim size As Integer = GetPrivateProfileString(section, 0, "", bytes, maxsize, path) If size < maxsize - 2 Then Dim entries As String = Encoding.ASCII.GetString(bytes, 0, size - (If(size > 0, 1, 0))) Return entries.Split(New Char() {ControlChars.NullChar}) End If maxsize *= 2 End While End Function Public Function GetEntryValue(section As String, entry As String) As Object Dim maxsize As Integer = 250 While True Dim result As New StringBuilder(maxsize) Dim size As Integer = GetPrivateProfileString(section, entry, "", result, maxsize, path) If size < maxsize - 1 Then Return result.ToString() End If maxsize *= 2 End While End Function End Module a minha grande duvida é como é que eu sabendo que no ficheiro vai dizer que tem relatório 1 2 3 4 5 6 tenho de dar copy da tabela 1 e reproduzir as demais

Boas pessoal tenho uma tabela em vb a qual vai ser sempre a mesma para o que quero fazer , deixa me explicar melhor consoante a informação que me dão num ficheiro de quantos report vou ter (ini,txt,xml) tenho de criar uma nova tabela (copiar a primeira e por uns pixels mais a baixo ) para cada report podem me ajudar com o codigo, sou novato em vb certas funcionalidades e codigo passa me completamente a lado , obrigado pela disponibilidade de quem ajudar

Vodafone??

true

8.1 claro so se quizeres erros no windows e que metes o 8

ligas o modem ao portatil e dás partilha na rede pelo wireless