Четверг, 28 Марта 2024, 11:52

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Форум игроделов » Программирование » Программирование .NET » Есть код (Нужно подправить VB)
Есть код
DasTemДата: Среда, 30 Мая 2012, 15:03 | Сообщение # 1
почетный гость
Сейчас нет на сайте
Вот есть код кнопки для скачки файла с интернета:
Code

Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long

Private Sub Command1_Click()
DownLoadFile "http://site.com/1.txt", "1.txt"
End Sub

Public Sub DownLoadFile(sUrl As String, sFile As String)
Dim DL As Long
On Error GoTo errHandler
If sUrl$ = "" Then sUrl$ = strUrl$
If strUrl$ = "" Then strUrl$ = sUrl$
If Left(strUrl$, 4) <> "http" Then strUrl$ = "http://" & strUrl$
If Right$(strUrl$, 1) <> "/" Then strUrl$ = strUrl$ & "/"
If Left$(sFile$, 1) = "/" Then sFile = Mid$(sFile$, 2)
DL& = DoFileDownload(StrConv(strUrl$ & sFile$, vbUnicode))
Exit Sub
errHandler:
Debug.Print "Error Source:", Err.Source
Debug.Print "Error Description:", Err.Description
Debug.Print "Error Number:", Err.Number
MsgBox "An error has occured attempting to start download to " & sUrl & sFile$ & ".", vbApplicationModal + vbCritical + vbDefaultButton1, "Error"
End Sub

И есть TextBox и нужно чтобы после нажатия на кнопку, содержимое из файла 1.txt (с сайта) загрузилось в программу в TextBox. С меня + smile
P.S. знаю есть такой код:
Code
Private Sub Form_Load()
Dim Fn As Long
Fn = FreeFile
Open "имя файла" For Input As Fn
Text1.Text = Input(LOF(Fn), Fn)
Close Fn
End Sub

Может его как то изменить надо?



Разрабатывается браузерная онлайн игра "Династия"


Сообщение отредактировал DasTem - Среда, 30 Мая 2012, 15:05
shizofrenДата: Среда, 30 Мая 2012, 17:07 | Сообщение # 2
Starting MS-DOS...
Сейчас нет на сайте
DasTem, это не VB.NET, а здесь нужно постить только в VB.NET.

Моя команда
Форум игроделов » Программирование » Программирование .NET » Есть код (Нужно подправить VB)
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2024 Рейтинг