Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Форум программистов и сисадминов Киберфорум > Форум программистов > .NET > Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Visual Basic .NET Открытие файла в FileListBox https://www.cyberforum.ru/ vb-net/ thread1040647.html
есть прога: после выбора директории на компе отображает все найденные pdf файлы...хотелось двойным кликом из FileListBox открывать нужные файлы...вот код..код взят от сюда http://msdn.microsoft.com/ru-ru/library/vstudio/cahdzfxw(v=vs.100).aspx Public Class Form1 Private Sub SetEnabled() Dim anySelected As Boolean = (filesListBox.SelectedItem IsNot Nothing) ... 		Счетчик количества нажатий на кнопку Visual Basic .NET
Добрый вечер! Помогите создать счетчик количества нажатий на кнопку. Можно это как то сделать с помощью оператора цикла "Do....Loop"?? Я начал делать без цикла, у меня не получается пока: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s As Integer Dim q As Integer s += 1 q = s + 1 ...
Visual Basic .NET Список найденных файлов (сканирование на наличие) https://www.cyberforum.ru/ vb-net/ thread1040435.html
Здравствуйте дорогие форумчане. Помогите с кодом по VB.Net. Работаю в Visual Studio 2013...как заделать кнопку на форме, которая сканировала бы определенную папку на жестком диске на наличие файлов формата .pdf и выдавала список найденных фалов на форме в виде ссылок на них (чтоб можно было открыть их)...помогите с вопросом( 		Visual Basic .NET Найти координаты минимального элемента двумерного массива чисел https://www.cyberforum.ru/ vb-net/ thread1040253.html
Пожалуйста помогите, по работа с массивами. Нужно найти координаты минимального элемента двумерного массива чисел. Размеры матриц вводить с помощью окна ввода. Формирования массива, использовать датчик случайных чисел, в диапазоне: от -10 до +100. Ссылка удалена, читайте правила. Прошу, помогите, много экзаменов, все не успеваю (такая каша в голове:cry:) выручайте, буду очень и очень...
Visual Basic .NET Как увеличить масштаб фигуры в PictureBox1?
Например имеются координаты произвольного треугольника, нужно его увеличить на (от 10 до 100%). Как можно это сделать с минимальным кодом? 		Visual Basic .NET Открыть картинку https://www.cyberforum.ru/ vb-net/ thread1040029.html
Здравствуйте! Форумчане, пытаюсь открыть картинку с помощью кода-не получается. Хочу при клике на Button открылся файл .ipg в отдельном окне!
Visual Basic .NET Защита от некорректного ввода (Переменная должная принимать значения 1-3) Доброго времени. Нужно сделать функцию защиты от некорректного ввода, переменная должная принимать значения 1-3, а если введенное значение не удовлетворяет условию, то отправляет пользователя вводить значение заново... https://www.cyberforum.ru/ vb-net/ thread1039904.html Отчистить битмап от существующей графики с возможностью дальнейшей с ним работы Visual Basic .NET
Доброго времени суток, товарищи программисты. :drink: Предо мной встала задачка следующего рода: мне нужно отчистить битмап от существующей графики с возможностью дальнейшей с ним работы. Подробнее. Я нечто в нём рисую. Мне не понравился результат. Я отчищаю битмап и рисую в нём же(!) с "чистого листа". В цикле зарисовка каждого пиксела - это конечно крайний бич-вариант (но очень долго...
Visual Basic .NET Загрузка собственного курсора в форме https://www.cyberforum.ru/ vb-net/ thread1039309.html
Добрый вечер,столкнулся с проблемой: Me.Cursor = New Cursor("cursor3.cur")' загружаю курсор Выскакивает ошибка: Недопустимый формат изображения. Возможно, поврежден файл изображения. Имя параметра: stream Курсор сделал с помощью специальной Проги. Где ошибка? 		Visual Basic .NET Анимация отрисовки циклоиды https://www.cyberforum.ru/ vb-net/ thread1039277.html
есть задача-на Vb.net используя только GDI+ смоделировать движение колеса и точки на нем. фактически нужно анимировать отрисовку циклоиды. Gr = Me.CreateGraphics() Me.Show() Gr.PageUnit = GraphicsUnit.Millimeter Gr.ScaleTransform(10.0F, -10.0F) Gr.TranslateTransform(1.0F, -15.0F) TextBox1.Text = "10" 'Gr.DrawRectangle(Pen1, 0.0F, 0.0F,...
Visual Basic .NET Распечатать фамилии рабочих бригады, начинающихся с букв А и С в форму приложения
Здравствуйте. Помогите пожалуйста с программой: Распечатать фамилии рабочих бригады, начинающихся с букв А и С в форму приложения, с указанием их месячной зарплаты. На vb 2010. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bfind.Click DataGridView2.Rows.Clear() For i = 1 To n If nasel(i).fam = " " Then ' Не... 		Visual Basic .NET Как узнать, закончилось ли копирование файла Уважаемые коллеги, подскажите, пожалуйста, как узнать, закончилось ли копирование файла ... Суть в том, что я сначала копирую файл по локальной сети в папку \\x...\folder\... , а потом его нужно переместить в папку \\y...\folder\... проблема в том, что при попытке переместить файл, который еще продолжает копироваться, происходит exception, что файл занят процессом ... как быть ..? выставил...
0 / 0 / 0
Регистрация: 26.05.2012
Сообщений: 235
16.12.2013, 23:37  [ТС] 0

Удалить повторяющиеся элементы из массива - Visual Basic .NET - Ответ 5507165

16.12.2013, 23:37. Показов 5894. Ответов 41
Метки (Все метки)

Ответ

Возможно я чтото не так описал, выложил часть программы, которая была изначально
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

dim n as integer = 9
dim shif(0 to n) as string
For Me.k = 1 To n
                oWord.Selection.TypeText(Text:=CStr(k))
                oWord.Selection.MoveRight(Unit:=Word.WdUnits.wdCharacter, Count:=1)
                oWord.Selection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
                oWord.Selection.MoveRight(Unit:=Word.WdUnits.wdCharacter, Count:=1)
                oWord.Selection.TypeText(Text:=shif(k))
                If k = 1 Then
                    oWord.Selection.MoveRight(Unit:=Word.WdUnits.wdCharacter, Count:=1)
                    oWord.Selection.MoveRight(Unit:=Word.WdUnits.wdCharacter, Count:=3, Extend:=Word.WdMovementType.wdExtend)
                    Fon(1)
                Else
                    oWord.Selection.MoveRight(Unit:=Word.WdUnits.wdCharacter, Count:=e)
                    oWord.Selection.MoveRight(Unit:=Word.WdUnits.wdCharacter, Count:=4, Extend:=Word.WdMovementType.wdExtend)
                    Fon(1)
                    e = e + 4
                End If
                oWord.Selection.InsertRowsBelow(1)
                oWord.Selection.Shading.BackgroundPatternColor = Word.WdColor.wdColorAutomatic
                oWord.Selection.MoveLeft(Unit:=Word.WdUnits.wdCharacter, Count:=1)
                  Next k
'остальной текст программы
 
Sub Fon(z As Integer)
        Select Case z
            Case 1
                oWord.Selection.Shading.Texture = Word.WdTextureIndex.wdTextureNone
                oWord.Selection.Shading.ForegroundPatternColor = Word.WdColor.wdColorAutomatic
                oWord.Selection.Shading.BackgroundPatternColor = -603946753
                oWord.Selection.MoveRight(Unit:=Word.WdUnits.wdCharacter, Count:=1)
            Case 2
'
  End Select
    End Sub
Добавлено через 1 минуту
это то что на первой картинке получается

Добавлено через 9 минут
а вот то что я пытался получить как на второй картинке
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

Dim m As Integer = 1
        Dim e As Integer = 0
        Dim ee As Integer = 0
        For Me.k = 1 To n
            If k = m Then
                e += 4
                GoTo 3
            End If
            oWord.Selection.TypeText(Text:=CStr(k))
            oWord.Selection.MoveRight(Unit:=Word.WdUnits.wdCharacter, Count:=1)
            oWord.Selection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
            oWord.Selection.MoveRight(Unit:=Word.WdUnits.wdCharacter, Count:=1)
            oWord.Selection.TypeText(Text:=shif(k))
            If k = 1 Then
                oWord.Selection.MoveRight(Unit:=Word.WdUnits.wdCharacter, Count:=1)
                oWord.Selection.MoveRight(Unit:=Word.WdUnits.wdCharacter, Count:=3, Extend:=Word.WdMovementType.wdExtend)
                Fon(1)
            Else
                oWord.Selection.MoveRight(Unit:=Word.WdUnits.wdCharacter, Count:=e)
                oWord.Selection.MoveRight(Unit:=Word.WdUnits.wdCharacter, Count:=4, Extend:=Word.WdMovementType.wdExtend)
                Fon(1)
                e += 4
            End If
            For j = k + 1 To n
                If shif(k) = shif(j) Then
                    m = j
                    oWord.Selection.MoveRight(Unit:=Word.WdUnits.wdCharacter, Count:=ee)
                    oWord.Selection.MoveRight(Unit:=Word.WdUnits.wdCharacter, Count:=4, Extend:=Word.WdMovementType.wdExtend)
                    Fon(1)
                    ee = (ee + 4) * j
                End If
            Next
            oWord.Selection.InsertRowsBelow(1)
            oWord.Selection.Shading.BackgroundPatternColor = Word.WdColor.wdColorAutomatic
            oWord.Selection.MoveLeft(Unit:=Word.WdUnits.wdCharacter, Count:=1)
3:      Next
но не получается

Вернуться к обсуждению:
Удалить повторяющиеся элементы из массива Visual Basic .NET
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 16.12.2013, 23:37
Готовые ответы и решения:

Удалить повторяющиеся элементы в массиве
Имеем массив строк: 123 123 123 9 9 9 9 qw

Удалить из массива повторяющиеся элементы
Помогите!!!1) ДАн массив из 1000 элементов! Получить второй массив поместив в него элементы первого...

Удалить из массива повторяющиеся элементы
Доброе время суток, писал программку и даже дописал и работает правильно. Но мне что-то кажется,...

Удалить из массива повторяющиеся элементы
Нужно удалить из одномерного массива повторяющиеся элементы. Элементы не рядом стоящие! Препод...

41
16.12.2013, 23:37
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 16.12.2013, 23:37
Помогаю со студенческими работами здесь

Удалить из массива повторяющиеся элементы
Дан массив размерностью 20*15, заполненый случайными числами long int. отсортировать по убыванию...

Удалить повторяющиеся элементы массива
Нужно удалить повторяющиеся элементы массива, оставляя только первое вхождение. Использовать...

Удалить из массива повторяющиеся элементы
Удалить из массива повторяющиеся элементы.жду вашим решений

Удалить не повторяющиеся элементы массива
Здравствуйте! нужна функция типа array_keys(array_flip()) наоборот у меня есть массив В...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru