TemplateVSPackage
v3.12.0
Шаблоны платформы Moca.NET.
для Мока.NET
для селена
vs2012 или более поздняя версия: шаблон Moca.NET 3.0.
vs2010: Шаблоны Moca.NET 2010
Это мастер, в котором используемый класс сущности формируется из оператора SQL для использования Moca.NET.
'------------------------------------------------------------------------------
' <auto-generated>
' このコードはツールによって生成されました。
' ランタイム バージョン:4.0.30319.42000
'
' このファイルへの変更は、以下の状況下で不正な動作の原因になったり、
' コードが再生成されるときに損失したりします。
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports Moca.Db
Imports Moca.Db.Attr
Imports Moca.Win
Imports System.ComponentModel
Imports System.Runtime.CompilerServices
Namespace Models
''' <summary>
''' EntityClass1 Entity
''' </summary>
''' <remarks></remarks>
''' <history>
''' </history>
Public Class EntityClass1
Implements System.ComponentModel.INotifyPropertyChanged
# Region " Declare "
Shared _def As IEntityClass1Definition
Private _id As Integer
Private _name As String
Private _note As String
# End Region
# Region " Property "
''' <summary>
''' Id (Id) Property.
''' </summary>
<Column( "Id" ), _
PropertyOrder( 1 )> _
Public Property Id() As Integer
Get
Return Me ._id
End Get
Set
Me ._id = value
OnPropertyChanged()
End Set
End Property
''' <summary>
''' Name (Name) Property.
''' </summary>
<Column( "Name" ), _
PropertyOrder( 2 )> _
Public Property Name() As String
Get
Return Me ._name
End Get
Set
Me ._name = value
OnPropertyChanged()
End Set
End Property
''' <summary>
''' Note (Note) Property.
''' </summary>
<Column( "Note" ), _
PropertyOrder( 3 )> _
Public Property Note() As String
Get
Return Me ._note
End Get
Set
Me ._note = value
OnPropertyChanged()
End Set
End Property
# End Region
# Region " PropertyChanged "
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub OnPropertyChanged(<CallerMemberName()> ByVal optional name As String = Nothing )
RaiseEvent PropertyChanged( Me , New System.ComponentModel.PropertyChangedEventArgs(name))
End Sub
# End Region
End Class
# Region " Definition "
''' <summary>
''' EntityClass1 Entity definition
''' </summary>
''' <remarks></remarks>
''' <history>
''' </history>
<Table(Sys.ConnectionStringName, "trnTable" )> _
Public Interface IEntityClass1Definition
''' <summary>
''' Table (Table) Property.
''' </summary>
Property Table() As Moca.Db.DbInfoTable
''' <summary>
''' Id (Id) Property.
''' </summary>
<Column( "Id" )> _
Property Id() As Moca.Db.DbInfoColumn
''' <summary>
''' Name (Name) Property.
''' </summary>
<Column( "Name" )> _
Property Name() As Moca.Db.DbInfoColumn
''' <summary>
''' Note (Note) Property.
''' </summary>
<Column( "Note" )> _
Property Note() As Moca.Db.DbInfoColumn
End Interface
# End Region
End Namespace
Wizards, который создает класс PageObject из селена из веб-страницы.
'------------------------------------------------------------------------------
' <auto-generated>
' このコードはツールによって生成されました。
' ランタイム バージョン:4.0.30319.42000
'
' このファイルへの変更は、以下の状況下で不正な動作の原因になったり、
' コードが再生成されるときに損失したりします。
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports MiYABiS.SeleniumTestAssist
Imports OpenQA.Selenium
Imports OpenQA.Selenium.Support.PageObjects
''' <summary>
''' PageObject1 PageObjects
''' </summary>
''' <remarks></remarks>
''' <history>
''' </history>
Public Class PageObject1
Inherits SeleniumAction
# Region " Declare "
<FindsBy([Using]:= "service-alert" )>
Private _serviceAlert As IWebElement
<FindsBy([Using]:= "outer-wrapper" )>
Private _outerWrapper As IWebElement
<FindsBy([Using]:= "content-wrapper" )>
Private _contentWrapper As IWebElement
<FindsBy([Using]:= "layout-footer" )>
Private _layoutFooter As IWebElement
<FindsBy([Using]:= "body" )>
Private _body As IWebElement
<FindsBy([Using]:= "logo" )>
Private _logo As IWebElement
<FindsBy([Using]:= "header-sidebox" )>
Private _headerSidebox As IWebElement
<FindsBy([Using]:= "searchBox" )>
Private _searchBox As IWebElement
<FindsBy([Using]:= "searchBoxInput" )>
Private _searchBoxInput As IWebElement
<FindsBy([Using]:= "searchBoxSubmit" )>
Private _searchBoxSubmit As IWebElement
<FindsBy([Using]:= "menu" )>
Private _menu As IWebElement
<FindsBy([Using]:= "UniquePackages" )>
Private _uniquePackages As IWebElement
<FindsBy([Using]:= "Downloads" )>
Private _downloads As IWebElement
<FindsBy([Using]:= "TotalPackages" )>
Private _totalPackages As IWebElement
<FindsBy([Using]:= "footer" )>
Private _footer As IWebElement
<FindsBy([Using]:= "releaseTag" )>
Private _releaseTag As IWebElement
# End Region
Public Sub New ( ByVal driver As IWebDriver)
MyBase .New(driver)
End Sub
End Class
Организация Мока.NET
Веб-форма приложения
Приложение формы Windows
Публичная лицензия Microsoft (MS-PL)
http://opensource.org/licenses/MS-PL