Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Problem z kodem


sooldier1234

Rekomendowane odpowiedzi

Opublikowano

Dzień dobry, zwracam się do was z prośbą, ponieważ pracuję nad auto updaterem do gry taki prosty na sam początek, wzorowałem się jednym filmikiem i wyskoczył mi błąd ale nie wiem jak go naprawić, może państwo mi pomoże, dziękuje za pomoc i pozdrawiam.

Public Class Form3
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SprawdzAktualizacje()
    End Sub
    Public Sub SprawdzAktualizacje() 'Jesli jest cos nie wyjasnione typu is not declared
        Dim file As String = Application.StartupPath & "\version.txt"
        Dim MyVer As String = My.Application.Info.Version.ToString

        If My.Computer.FileSystem.FileExists(file) Then
            My.Computer.FileSystem.DeleteFile(file)
        End If

        My.Computer.Network.DownloadFile("https://www.dropbox.com/s/z66y0x1ns6nedgc/Launcher%20NosFantasia%20v1.0%20alpha.rar?dl=0", file)
        Dim lastver As String = My.Computer.FileSystem.ReadAllText(file)

        If Not MyVer = lastver Then
            MsgBox("Dostepna jest nowa wersja launchera")
        Else
            MsgBox("Posiadasz starszą wersje, zalecana jest aktualizacja.")
        End If
    End Sub

    Private Function Application() As String
        Throw New NotImplementedException
    End Function

End Class

Błąd to: 'StartupPath' is not a member of 'String'

Pomagam na PW (Prywatna Wiadomosc)

▄ . ► KONTAKT .
Wyślij do mnie Prywatną Wiadomość (PW)

►Skype: smith.polska

Opublikowano

Spróbuj użyć "My.Application.Info.DirectoryPath"

Kolejny wyskoczył error tym razem Property access must assign to the property or use its value

Pomagam na PW (Prywatna Wiadomosc)

▄ . ► KONTAKT .
Wyślij do mnie Prywatną Wiadomość (PW)

►Skype: smith.polska

Opublikowano

Mi nie pokazuje żadnych błędów, spróbuj uruchomić wszystko jako administrator.

Może nie tu wpisałem, gdzie to dokładnie wpisać ?

Pomagam na PW (Prywatna Wiadomosc)

▄ . ► KONTAKT .
Wyślij do mnie Prywatną Wiadomość (PW)

►Skype: smith.polska

Opublikowano

            Dim file As String = My.Application.Info.DirectoryPath & "\version.txt"
 

Opublikowano

            Dim file As String = My.Application.Info.DirectoryPath & "\version.txt"

 

Dzięki teraz działa.

Pomagam na PW (Prywatna Wiadomosc)

▄ . ► KONTAKT .
Wyślij do mnie Prywatną Wiadomość (PW)

►Skype: smith.polska

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...