sub generate_members
If lastpath.Length>0 Then
Dim sb1 As StringBuilder
sb1.Initialize
sb1.Append("<!DOCTYPE html>").Append(CRLF)
sb1.Append("<html>")
For k=0 To station.Tabs.Size-1
For i=1 To pnl_tixi(k).NumberOfNodes-1 'omite back image
Dim sb As StringBuilder
sb.Initialize
Dim n As Node
n=pnl_tixi(k).GetNode(i)
Dim tagx As String
tagx=n.tag
Dim newdes As imgdes
newdes=propmap(station.SelectedIndex).Get(n.Tag)
sb.Append("<li>")
sb.Append(n.tag).Append(",")'0
sb.Append("®/Process/Bus1/Device_0/").Append(newdes.var1).Append(";")
sb.Append("</li>").Append(CRLF)
sb1.Append(sb.ToString)
Next
Next
sb1.Append("</html>")
Log(sb1.ToString)
File.WriteString(lastpath,"tixi.html",sb1.ToString)
Notificare(file_path(lastpath),"file ready")
Else
bd.ShowInformation("Create new project first !","Generate members","jFX-HMI BUILDER")
End If
end sub