• XSS.stack #1 – первый литературный журнал от юзеров форума

Помогите пожалуйста!

Mobile

CD-диск
Пользователь
Регистрация
19.09.2006
Сообщения
19
Реакции
0
Доброго времени суток!
Пишу диплом на VB, возникли проблеммы...
если кто шарит, стукните пожалуйста в 424224
Если что, могу материально отблагодарить.
Заранее спасибо!
 
Код:
Sub Command1_Click()
 List1.List(0) = "Элемент1"
 List1.List(1) = "Элемент2"
End Sub

Private Sub List1_Click()
Dim Text2 As Object
Set Text2 = Me.Controls.Add("Forms.TextBox.1", "Text2")

Text2.Visible = True
Text2.Top = 1500
Text2.Left = 500
End Sub

щелчок по кнопочке заполняет листбох

простой щелчок по листбоксу вызывает юзерконтрол, ну дальше обработаешь сам;)

выбор поля из списка, определение фокуса, перехват содержания и ввод данных в текстбох

п.с. написала здесь наспех. а то в аське без авторизации может обрезаться.

что непонятно- спрашивай дальше=)
 
посмотри, как можно набить второй литбокс, избранным из первого с помощью перетаскивания (допустим и обратный переход).

из второго листбокса можешь парсить в бд, или куда тебе надо
На форме создается два листбокса с дефолтными именами

Код:
Private Sub Form_Load()
' Заполняем список
List1.AddItem "товар 1"
List1.AddItem "товар 2"
List1.AddItem "товар 3"
List1.AddItem "товар 4"
List1.AddItem "товар 5"
List1.OLEDropMode = 1
List2.OLEDropMode = 1
End Sub

' Код управления перетаскиванием
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
List1.OLEDrag ' Начало перетаскивания
End Sub
Private Sub List1_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
' Разрешить только перемещение
AllowedEffects = vbDropEffectMove
' Назначаем начало выбора в ListBox на DataObject
Data.SetData List1
End Sub
Private Sub List2_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim strList As String
' Проверяем формат DataObject
If Not Data.GetFormat(vbCFText) Then Exit Sub
' Получаем текст из DataObject
strList = Data.GetData(vbCFText)
' Если элемент не был перемещён сам на себя
If Not strList = List2.Text Then
List2.AddItem strList
'Удаляем элемент из ListBox
List1.RemoveItem List1.ListIndex
End If
End Sub
''
''
'' Код управления перетаскиванием
''
''
Private Sub List2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
List2.OLEDrag ' Начало перетаскивания
End Sub
Private Sub List2_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
' Разрешить только перемещение
AllowedEffects = vbDropEffectMove
' Наначаем выбор в ListBox на DataObject
Data.SetData List2
End Sub
Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim strList As String
' Проверяем формат DataObject
If Not Data.GetFormat(vbCFText) Then Exit Sub
' Получаем текст из DataObject
strList = Data.GetData(vbCFText)
' Если элемент не был перемещён сам на себя
If Not strList = List1.Text Then
List1.AddItem strList
'Удаляем элемент из ListBox
List2.RemoveItem List2.ListIndex
End If
End Sub

Добавлено в [time]1243874038[/time]
для корректности скорее всего понадобятся кнопки заполнения, очистки, сортировки, функции проверки валидности введенных данных и тп.

Думаю, что тебе понадобится многоколоночный листбокс с сортировкой и заполнением кол-ва товара из комбобокса - выбором юзера
(если я правильно поняла цель)
 


Напишите ответ...
  • Вставить:
Прикрепить файлы
Верх