В общем, надо сделать меню, где будет список фамилий пяти авторов и которое выводило бы по фамилии автора его стихи. я в этом ничего не понимаю, а сдавать надо...
заранее спасибо)) =*
<?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>
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
Сейчас этот форум просматривают: Yandex-бот и гости: 58