Помогите сделать программку с помощью VB... оч надо)

[Vampy]

В общем, надо сделать меню, где будет список фамилий пяти авторов и которое выводило бы по фамилии автора его стихи. я в этом ничего не понимаю, а сдавать надо...
заранее спасибо)) =*

[VBTerminator]

Меню где? Сверху, типа "Файл", "Правка", и т. д. или контекстное?
В таком случае прилагаю быстро приготовленный пример.

[Хакер]

Если ты «в этом ничего не понимаешь», а так и есть, мы, увы, ничем помочь тебе не можем.

[RayShade]

Допустим это у нас файл, где хранятся стихи:

Код: Выделить всё

<?xml version="1.0" encoding="UTF-8"?>
<root>
<author name="Вася Пупкин">
Roses are red
Violets are blue
I am learning VB
But that's completely useless
</author>
<author name="Петя Сковородкин">
Roses are red
Violets are blue
I still suck
At learning VB
</author>
</root>


Назовем его типа, poetry.xml

А на форму положим ListBox1 - в него будем писать имена поэтов, и по клику на имени будем класть стихи в TextBox1.

Код там будет примерно такой (я нифига не помню VB6, и студии нет, так что тут скорее всего куча ошибок. Но тут их все равно меньше, чем ты их сделаешь, пока будешь переносить этот код в свой проект )

Код: Выделить всё

dim xml as object
private sub form_load()
set xml=createobject("msxml2.domdocument")
dim obj as object
for each obj in xml.selectNodes("//author")
listbox1.additem obj.atttributes.getNamedItem("name").nodeTypedValue
next obj
end sub

private sub listbox1_change()
textbox1.text=xml.selectSingleNode("//author[@name='"+listbox1.listitems(listbox1.listindex-1)+"']").text
end sub


[dr.MIG]

RayShade, жесть, — опять xml, как универсальная технология решения любой задачи. Пора менять прозвище на XML-маньяк .

[Space]

да, зато препод явно поймёт, что не студента рук дело

[Viper]

Сезон что ли начался? Закрываю.