Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: ухх( Добавлено: 13.11.09 04:19  

Автор вопроса:  UnDeAdZak
Блин, мне бейсик мозги парит, или я уже савсем того? У меня такая проблема:
Создаю я значит строчной массив от нуля, до 1000, заполняю, например три первых строчки значениями, после хачу добавить в него ещщё несколько значений, а он пишет, что индекс находится вне границ массива!!! И длину массива он пишет не 1001, а 3!!!!! И так уже 2 раза, в разных проэктах!!!! Подскажите плиз чего делать!!!!!!

Ответить

  Ответы Всего ответов: 8  

Номер ответа: 1
Автор ответа:
 maza_____



ICQ: 9968842 

Вопросов: 40
Ответов: 337
  Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья))
 Профиль | | #1 		Добавлено: 13.11.09 07:08
  1. Public Class Form1
  2.     Dim str(0 To 1000) As String
  3.  
  4.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  5.         Dim i As Integer
  6.         For i = 0 To 3
  7.             str(i) = "строка №" + i.ToString
  8.             MessageBox.Show(str(i))
  9.         Next
  10.     End Sub
  11.  
  12.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  13.         str(1000) = "o_O"
  14.         MessageBox.Show(str(1000))
  15.  
  16.     End Sub
  17. End Class


жму сначала батон1 потом батон2,всё работает

Ответить

Номер ответа: 2
Автор ответа:
 Skywalker



ICQ: 300-70-6пятьЪ 

Вопросов: 62
Ответов: 545
  Web-сайт: iSkywalker.ru
 Профиль | | #2 		Добавлено: 13.11.09 08:43
UnDeAdZak, ты код хоть напиши...

Ответить

Номер ответа: 3
Автор ответа:
 maza_____



ICQ: 9968842 

Вопросов: 40
Ответов: 337
  Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья))
 Профиль | | #3 		Добавлено: 13.11.09 13:38
Работает?:)

Ответить

Номер ответа: 4
Автор ответа:
 UnDeAdZak



Вопросов: 80
Ответов: 476
  Профиль | | #4 Добавлено: 13.11.09 16:05
  1.  
  2.     Dim FileMass(0 To 1000) As String
  3.     Dim FileMass1(0 To 1000) As String
  4.     Dim PathFile(0 To 1000) As String  
  5.   Private Sub СоздатьРезервнуюКопиюToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СоздатьРезервнуюКопиюToolStripMenuItem.Click
  6.         Dim j As Integer
  7.         Dim B As Integer
  8.         СоздатьРезервнуюКопиюToolStripMenuItem.Visible = False
  9.         FileQualitu = ListBox1.Items.Count
  10.         FolderBrowserDialog2.ShowDialog()
  11.         If FileMass1(0) = Nothing Then
  12.         Else
  13.             For j = 0 To C
  14.                 FileMass(B) = FileMass1(j)
  15.                 B += 1
  16.             Next
  17.         End If
  18.         For j = 0 To A
  19.             FileMass(B) = PathFile(j)
  20.             B += 1
  21.         Next
  22.  
  23.         Dim ZipName As String
  24.         ZipName = FolderBrowserDialog2.SelectedPath & "\" & My.Computer.Clock.LocalTime.Day.ToString & "." & My.Computer.Clock.LocalTime.Month.ToString & "." & My.Computer.Clock.LocalTime.Year.ToString & ".zip"
  25.         Me.Text = ZipName
  26.         Dim ZipOut As ZipOutputStream = New ZipOutputStream(File.Create(ZipName))
  27.         ZipOut.SetLevel(9)
  28.         ProgressBar1.Maximum = B - 2
  29.         For j = 0 To B - 2
  30.             ProgressBar1.Value += 1
  31.             Dim StrmFile As FileStream = File.OpenRead(FileMass(j))
  32.             Dim ABuff(0 To StrmFile.Length - 1) As Byte
  33.             Dim Entry As ZipEntry = New ZipEntry(FileMass(j))
  34.             Entry.DateTime = DateTime.Now
  35.             Entry.Size = StrmFile.Length
  36.             StrmFile.Close()
  37.             ZipOut.PutNextEntry(Entry)
  38.             ZipOut.Write(ABuff, 0, ABuff.Length)
  39.         Next
  40.         ZipOut.Finish()
  41.         ZipOut.Close()
  42.         B = 0
  43.         MsgBox("Создание резервной копии завершено", MsgBoxStyle.OkOnly, "Информация")
  44.     End Sub


Массивы Filemass1 и PathFile заполняются именами файлов в другой процедуре. Если оба этих массива имеют элементы, то по очереди закидываю их в массив FileMass, а он пишет, что индэкс находится вне массива(

Ответить

Номер ответа: 5
Автор ответа:
 UnDeAdZak



Вопросов: 80
Ответов: 476
  Профиль | | #5 Добавлено: 13.11.09 16:06
Это тока отрывок кода, в котором случается ошибка, и там ещщё используется Ziplib.dll, так что он может у вас ошибку вывести(

Ответить

Номер ответа: 6
Автор ответа:
 maza_____



ICQ: 9968842 

Вопросов: 40
Ответов: 337
  Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья))
 Профиль | | #6 		Добавлено: 13.11.09 16:25
чо за прогу пишешь?)

Ответить

Номер ответа: 7
Автор ответа:
 UnDeAdZak



Вопросов: 80
Ответов: 476
  Профиль | | #7 Добавлено: 13.11.09 17:53
Утилитку для резервного копирования(

Ответить

Номер ответа: 8
Автор ответа:
 maza_____



ICQ: 9968842 

Вопросов: 40
Ответов: 337
  Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья))
 Профиль | | #8 		Добавлено: 13.11.09 18:08
выложи потом посмотреть)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам