Programmer 7500

home *** CD-ROM | disk | FTP | other *** search

/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / EASY_NET / FORM2.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1994-04-04 | 11.6 KB | 436 lines

Form1 DEMONET 2 Form15 EasyNet MS Sans Serif Etiquette1 MS Sans Serif &File ExitMenu &Exit EditMenu &Edit CopyMenu &Copy DeleteMenu &Delete SEPARATOR2 SelectAllMenu Select &All SEPARATOR5 SelectModeMenu &Select Mode CapabilitiesMenu &Capabilities MultiSelectionMenu Multi &Selection ReadOnlyMenu &Read Only CanSizeNodeMenu Can Si&ze node CanMoveNodemenu Can &Move node CanStretchLinkMenu Can S&tretch link CanMultiLinkMenu Can M&ulti link CanDrawNodeMenu Can Draw &Node CanDrawLinkMenu Can Draw &Link InfoMenu &Info AboutMenu &About... NodeFillColor_ClickR CC_RGBINIT CMDialog1 Color NodeFillColor Flags Action Form_Load Form_Resize windowstate ScaleHeight Visible Leftw Height Width/ ScaleWidth Net1_ClickNode idnode Open_Click OFN_OVERWRITEPROMPT OFN_SHOWHELP OFN_CREATEPROMPT Filename~ DefaultExt< FilterO Openfile9 LinkColor_Click LinkColor Net1_DblClick OldStr NewStr. GetNodeTexti SetNodeText Exit_Click\ SelectAll_Click SelectAll Cut_Click Copy_Click Copyq Paste_ClickS Paste Delete_Click< New_Click NodeLeft NodeTop) NodeRight NodeBottom SaveAs_Click Save_Click printNet1* curItemf CurrentItemH Net1_ChangeB Net1_SelChangev Net1_ClickLink idLink TypeItem Ellipse_Click Shape NodeShapeq RoundRect_Click Rectangle_Click Net1_ClickOut$ idItem Net1_DragOver4 Source control StateT Net2_ClickNode Net2_SelChange Net1_MouseUp Button Shift itemId itemType. FirstNode NextNode Node SaveFileP EnrNode5 NodeRecord X1Net1V FillColorV NodeBorderColor BorderColord NodeText TextF Label Lengthe FileHeader NodeCount GetNodeCount LinkCount GetLinkCount GetCountNodeY CountNode GetNbNode GetNumberbNode GetNodesCount TextLengthI NextLink& FirstLink LinkRecord SrcNode DstNode LinkWidthX LinkSrcNode LinkDstNode offsete GetNodeIndex nodeId9 nNbNode PointCount LinkPointCountG Changed FirstLinkPoint NextLinkPoint LinkPoint NodeBorderColor_Click Destination Origin NoShape_Click Bitmap_Clickr Picture Image1B Edit_Click PointTabU FillStyle EditActionC File_ClickP ShapeNode Net1_Click ThenNet1r Image2 Image3 SelNodeCount SelFirstNode| Asinteger FirstSelNodet NextSelNode LinkedNode NodeLink LoopType LoopCount LoopItem LoopAction Net1_AddNode Clipboard Metafilet SelectModeMenu_Clicke Mode( SelectionMode6 SelectMode NodeColor DrawColor" DrawWidth draw= Color_Click DrawColor_Click PersistentL FontMenu_Click FontName FontSize FontUnderline FontItalic$ FontBold IsLink LoopAc4 About countD AddPoint CenDrawNodeMenu_Click CanDrawNode0 FalseelseQ CanDrawNodeMenu_Click ReadOnlyMenu_Click ReadOnly MiscMenu_Click\ Net1_ErrSpace Oriented Net1_AddLinkx PointXg PointY6 value Form_QueryUnload Cancel UnloadMode Response FState Dirty Caption frmMDI[ GetFileName SaveFileAsF FilenamefrmMDI QueryUnload IfEnd Form_Unloadz Form28 FormK Form1 notNet1 Draw_Click Form_PaintY Option_Click( DefFillColor DefDrawColor DefShapew BackColor nbnode nblink memoriser tableauC elected nodes array Exercice1Menu_Click% CopyMenu_ClickK DeleteMenu_ClickG EllipseMenu_Click4 DrawColorMenu_Click{ RoundRectMenu_ClickX SelectAllMenu_Clickf NodeFillColorMenu_Click} NoShapeMenu_Click Exercice2Menu_Click. Exercice3Menu_Click3 Exercice4Menu_Clickg linkType Exercice5Menu_Click" Etiquette1 SelectModeMenue Checked AboutMenu_Click moMenu_Click WinExec SW_SHOWMINIMIZED6 DemoMenu_Click SendMessages GetActiveWindow WM_COMMAND InvisibleMenu_Click$ NodeColorMenu_Click MousePointerW CanSizeNodeMenu_Clickp CanSizeNode CanSizeNodeMenu% ReadOnlyMenu CanMoveNodemenu_Clickf CanMoveNode CanMoveNodeMenu CanStretchLinkMenu_Click CanStretchLinkMenu CanStretchLink CanMultiLinkMenu_Click CanMultiLinkp CanMultiLinkMenu, Net1CanMoveNode MultiSelectionMenu_Click MultiSelectionMenu MultiSelZ Enabled CanDrawNodeMenu CanDrawLinkMenu_Click- CanDrawLinkJ CanDrawLinkMenu NewMenu_Click4 OpenMenu_Click SaveMenu_Clickc SaveAsMenu_Click9 ExitMenu_Clicko EndDemo Show1 ItemTextj MultiSelectioni DefReadOnly DefMultiSelection DefCanSizeNode DefCanMoveNode DefCanStretchLink DefCanMultiLink DefCanDrawNodeW DefCanDrawLinkU DefMultiSel InitMenu@ BitmapMenu_Click number orgNum DstNum demo| DemoMenu EndDemoMenu_Clickt UseMenu_Click Command1_Click ButtonMenu_Click Command1 Picture1 allows graphs interactively forms graph@ thatB linked change style] sizeG position associate navigate INFO1z INFO2 INFO3 INFO4 INFO5[ StartDemoMenu_Click EndDemoMenu5 Command2_ClickS Command2 FeaturesMenu_Click+ flase Picture1_Click UseMenu RedrawMenu_Click dessinS NetCtrl PrintMenu_Clickv DessinForm nbpoint radius ForeColor CurrentX CurrentY* printer endodc BeginPage EndPage NumCopies CancelError Errhandler FromPage ToPage Copies Net1X1 PrintFile AboutMenu_Click CanDrawLinkMenu_Click CanDrawNodeMenu_Click CanMoveNodemenu_Click CanMultiLinkMenu_Click CanSizeNodeMenu_Click CanStretchLinkMenu_Click CopyMenu_Click DeleteMenu_Click ExitMenu_Click Form_Load Drawing mode Form_Resize InitMenu MultiSelectionMenu_Click Drawing mode Net1_AddNode Avoid too small nodes Net1_ErrSpace No more memory available evente No more memory available. Please, try to delete some items TEST NET PrintFile Nodes loop If NetCtrl.Picture <> 0 Then Picture1(id).Visible = Truen Picture1(id).Picture = NetCtrl.Picture Picture1(id).Left = X - Picture1(id).Width / 2 Picture1(id).Top = Y - Picture1(id).Height / 2 If NetCtrl.Shape <> 2 Then Picture1(id).BackColor = NetCtrl.FillColor Picture1(id).BackColor = NetCtrl.BackColor End If id = id + 1) End If Ellipse Rectangle Links loop@ ReadOnlyMenu_Click Read only Selection mode Drawing mode SelectAllMenu_Click SelectModeMenu_Click Selection mode Drawing mode