frmrss.designer.vb
来自「VB.NET的Web浏览器IE7的克隆选项卡式浏览器 描述:这是一个例子写的」· VB 代码 · 共 321 行 · 第 1/2 页
VB
321 行
Me.SplitContainer2.SplitterDistance = 227
Me.SplitContainer2.TabIndex = 0
'
'dgRSS
'
Me.dgRSS.AllowUserToAddRows = False
Me.dgRSS.AllowUserToDeleteRows = False
Me.dgRSS.AllowUserToOrderColumns = True
Me.dgRSS.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Info
DataGridViewCellStyle1.ForeColor = System.Drawing.Color.Black
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.Color.Gainsboro
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.Color.Black
Me.dgRSS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgRSS.BackgroundColor = System.Drawing.Color.White
Me.dgRSS.BorderStyle = System.Windows.Forms.BorderStyle.None
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.Color.CornflowerBlue
DataGridViewCellStyle2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.Color.White
DataGridViewCellStyle2.NullValue = Nothing
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.Color.Tomato
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgRSS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
Me.dgRSS.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgRSS.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Title, Me.Description, Me.PubDate, Me.LinkURL})
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle3.Font = New System.Drawing.Font("Courier New", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.RoyalBlue
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.White
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgRSS.DefaultCellStyle = DataGridViewCellStyle3
Me.dgRSS.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgRSS.EnableHeadersVisualStyles = False
Me.dgRSS.Location = New System.Drawing.Point(0, 0)
Me.dgRSS.MultiSelect = False
Me.dgRSS.Name = "dgRSS"
Me.dgRSS.ReadOnly = True
Me.dgRSS.RowHeadersBorderStyle = System.Windows.Forms.DataGridViewHeaderBorderStyle.None
Me.dgRSS.RowHeadersVisible = False
Me.dgRSS.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgRSS.ShowCellErrors = False
Me.dgRSS.ShowEditingIcon = False
Me.dgRSS.Size = New System.Drawing.Size(556, 227)
Me.dgRSS.TabIndex = 1
'
'Title
'
Me.Title.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.Title.DataPropertyName = "Title"
Me.Title.HeaderText = "Title"
Me.Title.Name = "Title"
Me.Title.ReadOnly = True
'
'Description
'
Me.Description.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.Description.DataPropertyName = "Description"
Me.Description.HeaderText = "Description"
Me.Description.Name = "Description"
Me.Description.ReadOnly = True
'
'PubDate
'
Me.PubDate.DataPropertyName = "PubDate"
Me.PubDate.HeaderText = "Published"
Me.PubDate.Name = "PubDate"
Me.PubDate.ReadOnly = True
'
'LinkURL
'
Me.LinkURL.DataPropertyName = "Link"
Me.LinkURL.HeaderText = "LinkURL"
Me.LinkURL.Name = "LinkURL"
Me.LinkURL.ReadOnly = True
Me.LinkURL.Visible = False
'
'wbRSS
'
Me.wbRSS.ContextMenuStrip = Me.cmWB
Me.wbRSS.Dock = System.Windows.Forms.DockStyle.Fill
Me.wbRSS.IsWebBrowserContextMenuEnabled = False
Me.wbRSS.Location = New System.Drawing.Point(0, 0)
Me.wbRSS.MinimumSize = New System.Drawing.Size(20, 20)
Me.wbRSS.Name = "wbRSS"
Me.wbRSS.Size = New System.Drawing.Size(556, 228)
Me.wbRSS.TabIndex = 0
'
'cmWB
'
Me.cmWB.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuMainBrowser})
Me.cmWB.Name = "ContextMenuStrip1"
Me.cmWB.Size = New System.Drawing.Size(185, 26)
'
'mnuMainBrowser
'
Me.mnuMainBrowser.Name = "mnuMainBrowser"
Me.mnuMainBrowser.Size = New System.Drawing.Size(184, 22)
Me.mnuMainBrowser.Text = "View in New Browser"
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(149, 6)
'
'mnuRefresh
'
Me.mnuRefresh.Name = "mnuRefresh"
Me.mnuRefresh.Size = New System.Drawing.Size(152, 22)
Me.mnuRefresh.Text = "Refresh"
'
'frmRSS
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(769, 484)
Me.Controls.Add(Me.SplitContainer1)
Me.Controls.Add(Me.ToolStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmRSS"
Me.Text = "RSS Viewer"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.SplitContainer1.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel2.ResumeLayout(False)
Me.SplitContainer1.ResumeLayout(False)
Me.cmRSS.ResumeLayout(False)
Me.SplitContainer2.Panel1.ResumeLayout(False)
Me.SplitContainer2.Panel2.ResumeLayout(False)
Me.SplitContainer2.ResumeLayout(False)
CType(Me.dgRSS, System.ComponentModel.ISupportInitialize).EndInit()
Me.cmWB.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
Friend WithEvents tvRSS As System.Windows.Forms.TreeView
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents SplitContainer2 As System.Windows.Forms.SplitContainer
Friend WithEvents dgRSS As System.Windows.Forms.DataGridView
Friend WithEvents wbRSS As Ie7Clone.exBrowser
Friend WithEvents btnAddFeed As System.Windows.Forms.ToolStripButton
Friend WithEvents btnAddGroup As System.Windows.Forms.ToolStripButton
Friend WithEvents cmRSS As System.Windows.Forms.ContextMenuStrip
Friend WithEvents DeleteToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents Title As System.Windows.Forms.DataGridViewLinkColumn
Friend WithEvents Description As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents PubDate As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents LinkURL As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents cmWB As System.Windows.Forms.ContextMenuStrip
Friend WithEvents mnuMainBrowser As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents mnuRefresh As System.Windows.Forms.ToolStripMenuItem
End Class
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?