vb.net textbox 边框颜色_百度知道
vb.net textbox 边框颜色
我的页面中有6个textbox，如果他们被选中的话。边框就变成红色。（加控件的方法就不用告诉我了）...
我的页面中有6个textbox ，如果他们被选中的话。边框就变成红色。（加控件的方法就不用告诉我了）
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
采纳数：15
获赞数：170
擅长：暂未定制
只能自己重新绘制了
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。学习VB.NET时，你可能会遇到VB.NET文本框问题，这里将介绍VB.NET文本框问题的解决方法，在这里拿出来和大家分享一下。VB.NET文本框没有直接提供取当前行号的功能，但我们可以有如下几种方法实现：
案例分析VB.NET读取文件图标实现步骤
深入了解VB.NET对象列表
浅析使用VB.NET枚举
让你了解VB.NET继承能力
简单介绍VB.NET C#区别和动态语言
一．用windows API函数，这也是VB的方法
先声明如下API函数，注意参数类型是用Integer,因为VB.NET的Integer是32位的：
Private Declare Function SendMessageinteger Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Const EM_LINEFROMCHAR = &HC9
'计算文本框的当前行号Friend Function LineNo(ByVal txthwnd As Integer) As Integer
'计算文本框的当前行号'参数txthwnd是文本框的句柄(handle)
Return Format$( SendMessageinteger(txthwnd, EM_LINEFROMCHAR, -1&, 0&) + 1, "##,###")
Catch ex As Exception
End Function
二．累加计算
通过计算累加每行字符总数是否大于插入点前总字符数，来确定当前行数。'不使用API函数
Friend Function LineNo(ByVal sender As Object) As Integer
'计算文本框的当前行号
Dim txtbox As TextBox
Dim charCount As Integer
Dim i As Integer
txtbox = CType(sender, TextBox)
For i = 0 To txtbox.Lines.GetUpperBound(0) '计算行数
charCount += txtbox.Lines(i).Length + 2 '一个回车符长度2
If txtbox.SelectionStart & charCount Then
Return i + 1
Catch ex As Exception
End Function
声明：本文内容由互联网用户自发贡献自行上传，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任。如果您发现有涉嫌版权的内容，欢迎发送邮件至： 进行举报，并提供相关证据，工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。
WCF开发工具中有很多比较重要的操作技术是需要我们去熟练的掌握，以至于在实际应用中获得些帮助。今天我们就为大家介绍一下有关WCF服务加载在实现的VB.NET里面要使无边框的窗体有阴影该怎么做_百度知道
VB.NET里面要使无边框的窗体有阴影该怎么做
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
IT类认证行家
采纳数：33400
获赞数：21857
从事多年系统运维，喜欢编写各种小程序和脚本。
调用系统API使窗体下拥有阴影效果using System.Runtime.InteropS 然后再窗口类的随便哪个地方加上：const int CS_DROPSHADOW = 0x20000;const int GCL_STYLE = (-26);//声明Win32 API[DllImport(&user32.dll&, CharSet = CharSet.Auto)]public static extern int SetClassLong(IntPtr hwnd,int nIndex,int dwNewLong);[DllImport(&user32.dll&, CharSet = CharSet.Auto)]public static extern int GetClassLong(IntPtr hwnd, int nIndex); 最后在窗体的构造函数中加上：SetClassLong(this.Handle, GCL_STYLE, GetClassLong(this.Handle, GCL_STYLE) | CS_DROPSHADOW);
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。UG单线体刻字框选辅助（VB.NET源码)
我的图书馆
UG单线体刻字框选辅助（VB.NET源码)
Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.BlockStyler
Imports NXOpen.UF
Imports NXOpen.CAM
Imports NXOpen.NXObject
'------------------------------------------------------------------------------
'Represents Block Styler application class
'------------------------------------------------------------------------------
Public Class SelectLines
&&& 'class members
&&& Private Shared theSession As Session
&&& Private Shared theUI As UI
&&& Private theDlxFileName As String
&&& Private theDialog As NXOpen.BlockStyler.BlockDialog
&&& Private group0 As NXOpen.BlockStyler.UIBlock' Block type: Group
&&& Private edge_select0 As NXOpen.BlockStyler.UIBlock ' Block type: Curve Collector
&&& '------------------------------------------------------------------------------
&&& 'Bit Option for Property: EntityType
&&& '------------------------------------------------------------------------------
&&& Public Shared ReadOnly&&&&&&&&&&&&&&&&&&&&&&&& &EntityType_AllowEdges =&&&& 1
&&& Public Shared ReadOnly&&&&&&&&&&&&&&&&&&&&&&&& EntityType_AllowCurves =&&&& 4
&&& Public Shared ReadOnly&&&&&&&&&&&&&&&&&&&&&&&&& EntityType_AllowPoint =&&&& 8
&&& Public Shared ReadOnly&&&&&&&&&&&&&&&&&&&&&&&& EntityType_AllowBodies =&&& 64
&&& '------------------------------------------------------------------------------
&&& 'Bit Option for Property: CurveRules
&&& '------------------------------------------------------------------------------
&&& Public Shared ReadOnly&&&&&&&&&&&&&&&&&&&&&&&& CurveRules_SingleCurve =&&&& 1
&&& Public Shared ReadOnly&&&&&&&&&&&&&&&&&&&& CurveRules_ConnectedCurves =&&&& 2
&&& Public Shared ReadOnly&&&&&&&&&&&&&&&&&&&&&& CurveRules_TangentCurves =&&&& 4
&&& Public Shared ReadOnly&&&&&&&&& &&&&&&&&&&&&&&&&&CurveRules_FaceEdges =&&&& 8
&&& Public Shared ReadOnly&&&&&&&&&&&&&&&&&&&&&&&&&& CurveRules_BodyEdges =&&& 16
&&& Public Shared ReadOnly&&&&&&&&&&&&&&&&&&&&&&&&& CurveRules_SheetEdges =&&& 32
&&& Public Shared ReadOnly&&&&&&&&&&&&&&&&&&&&&& CurveRules_FeatureCurves =&&& 64
&&& Public Shared ReadOnly&&&&&&&&&&&&&&&&&&&&&&&& CurveRules_VertexEdges =&& 256
&&& Public Shared ReadOnly&&&&&&&&&&&&&&&&& CurveRules_VertexTangentEdges =&& 512
&&& Public Shared ReadOnly&&&&&&&&& &&&&&&CurveRules_RegionBoundaryCurves =& 2048
#Region "Block Styler Dialog Designer generator code"
&&& '------------------------------------------------------------------------------
&&& 'Constructor for NX Styler class
&&& '------------------------------------------------------------------------------
&&& Public Sub New()
&&&&&&& Try
&&&&&&&&&&& theSession = Session.GetSession()
&&&&&&&&&&& theUI = UI.GetUI()
&&&&&&&&&&& theDlxFileName = "SelectLines.dlx"
&&&&&&&&&&& theDialog = theUI.CreateDialog(theDlxFileName)
&&&&&&&&&&& theDialog.AddApplyHandler(AddressOf apply_cb)
&&&&&&&&&&& theDialog.AddOkHandler(AddressOf ok_cb)
&&&&&&&&&&& theDialog.AddUpdateHandler(AddressOf update_cb)
&&&&&&&&&&& theDialog.AddInitializeHandler(AddressOf initialize_cb)
&&&&&&&&&&& theDialog.AddDialogShownHandler(AddressOf dialogShown_cb)
&&&&&&& Catch ex As Exception
&&&&&&&&&&& '---- 输入异常处理代码-----
&&&&&&&&&&& Throw ex
&&&&&&& End Try
&&& End Sub
#End Region
&&& Public Shared Sub Main()
&&&&&&& Dim theSelectLines As SelectLines = Nothing
&&&&&&& Try
&&&&&&&&&&& theSelectLines = New SelectLines()
&&&&&&&&&&& ' The following method shows the dialog immediately
&&&&&&&&&&& theSelectLines.Show()
&&&&&&& Catch ex As Exception
&&&&&&&&&&& '---- 输入异常处理代码 -----
&&&&&&&&&&& theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
&&&&&&& Finally
&&&&&&&&&&& If theSelectLines IsNot Nothing Then
&&&&&&&&&&&&&&& theSelectLines.Dispose()
&&&&&&&&& &&&&&&theSelectLines = Nothing
&&&&&&&&&&& End If
&&&&&&& End Try
&&& End Sub
&&& '------------------------------------------------------------------------------
&&& '卸载方式
&&& '------------------------------------------------------------------------------
&&& Public Shared Function GetUnloadOption(ByVal arg As String) As Integer
&&&&&&& 'Return CType(Session.LibraryUnloadOption.Explicitly, Integer)
&&&&&&&& Return CType(Session.LibraryUnloadOption.Immediately, Integer)
&&&&&&& ' Return CType(Session.LibraryUnloadOption.AtTermination, Integer)
&&& End Function
&&& '------------------------------------------------------------------------------
&&& ' 清理
&&& '------------------------------------------------------------------------------
&&& Public Shared Function UnloadLibrary(ByVal arg As String) As Integer
&&&&&&& Try
&&&&&&&&&&& Return 0
&&&&&&& Catch ex As Exception
&&&&&&&&&&& '---- Enter your exception handling code here -----
&&&&&&&&&&& theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
&&&&&&& End Try
&&& End Function
&&& '------------------------------------------------------------------------------
&&& '显示对话框方法
&&& '------------------------------------------------------------------------------
&&& Public Sub Show()
&&&&&&& Try
&&&&&&&&&&& theDialog.Show
&&&&&&& Catch ex As Exception
&&&&&&&&&&& '---- Enter your exception handling code here -----
&&&&&&&&&&& theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
&&&&&&& End Try
&&& End Sub
&&& '------------------------------------------------------------------------------
&&& '------------------------------------------------------------------------------
&&& Public Sub Dispose()
&&&&&&& If theDialog IsNot Nothing Then
&&&&&&&&&&& theDialog.Dispose()
&&&&&&&&&&& theDialog = Nothing
&&&&&&& End If
&&& End Sub
&&& '------------------------------------------------------------------------------
&&& '---------------------UI回调函数--------------------------
&&& '------------------------------------------------------------------------------
&&& '------------------------------------------------------------------------------
&&& '回调函数名：初始化（initialize_cb）
&&& '------------------------------------------------------------------------------
&&& Public Sub initialize_cb()
&&&&&&& Try
&&&&&&&&&&& group0 = theDialog.TopBlock.FindBlock("group0")
&&&&&&&&&&& edge_select0 = theDialog.TopBlock.FindBlock("edge_select0")
&&&&&&& Catch ex As Exception
&&&&&&&&&&& '---- Enter your exception handling code here -----
&&&&&&&&&&& theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
&&&&&&& End Try
&&& End Sub
&&& '------------------------------------------------------------------------------
&&& 'Callback Name: dialogShown_cb
&&& '在对话框显示之前执行
&&& '------------------------------------------------------------------------------
&&& Public Sub dialogShown_cb()
&&&&&&& Try
&&&&&&&&&&& '---- Enter your callback code here -----
&&&&&&& Catch ex As Exception
&&&&&&&&&&& '---- Enter your exception handling code here -----
&&&&&&&&&&& theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
&&&&&&& End Try
&&& End Sub
&&& '------------------------------------------------------------------------------
&&& 'Callback Name: apply_cb
&&& '------------------------------------------------------------------------------
&&& Public Function apply_cb() As Integer
&&&&&&& Dim errorCode As Integer = 0
&&&&&&& Try
&&&&&&&&&&& '---- 回调代码-----
&&&&&&&&&&& Dim theUFSession As UFSession = UFSession.GetUFSession()
&&&&&&&&&&& Dim workPart As Part = theSession.Parts.Work
&&&&&&&&&&& Dim displayPart As Part = theSession.Parts.Display
&&&&&&&&&&& Dim mytag() As NXOpen.Tag '选择的加工操作标记数组
&&&&&&&&&&& Dim mcount As Integer '选择的加工操作数量
&&&&&&&&&&& '获取选择的操作数()
&&&&&&&&&&& theUFSession.UiOnt.AskSelectedNodes(mcount, mytag)
&&&&&&&&&&& If mcount = 0 Then
&&&&&&&&&&&&&&& MsgBox("没有选择加工操作!", MsgBoxStyle.OkOnly, "提示信息")
&&&&&&&&&&&&&&& Exit Function
&&&&&&&&&&& End If
&&&&&&&&&&& Dim ToolPathName As String = ""
&&&&&&&&&&& theUFSession.Oper.AskNameFromTag(mytag(0), ToolPathName) '获取操作名称
&&&&&&&&&&& MsgBox(ToolPathName)
&&&&&&&&&&& Dim edgeSelectProps As PropertyList = edge_select0.GetProperties()
&&&&&&&&&&& Dim edges() As TaggedObject = edgeSelectProps.GetTaggedObjectVector("SelectedObjects")
&&&&&&&&&&& edgeSelectProps.Dispose()
&&&&&&&&&&& edgeSelectProps = Nothing
&&&&&&&&&&& MsgBox("曲线数量：" & CStr(edges.Length()) & "条")
&&&&&&&&&&&
&&&&&&&&&&& If mcount = 1 Then
&&&&&&&&&&&&&&& '分割曲线
&&&&&&&&&&&&&&& Dim curves1(0) As Curve
&&&&&&&&&&&&&&& For i = 0 To edges.Length - 1
&&&&& &&&&&&&&&&&&&&Dim surfaceContour1 As CAM.SurfaceContour = CType(workPart.CAMSetup.CAMOperationCollection.FindObject(ToolPathName), CAM.SurfaceContour)
&&&&&&&&&&&&&&&&&&& Dim surfaceContourBuilder1 As CAM.SurfaceContourBuilder
&&&&&&&&&&&&&&&&&&& surfaceContourBuilder1 = workPart.CAMSetup.CAMOperationCollection.CreateSurfaceContourBuilder(surfaceContour1)
&&&&&&&&&&&&&&&&&&& Dim unit1 As Unit = CType(workPart.UnitCollection.FindObject("MilliMeter"), Unit)
&&&&&&&&&&&&&&&&&&& '--------------------------------------------------------------------------------------
&&&&&&&&&&&&&&&&&&& Dim section1 As Section = workPart.Sections.CreateSection(0.0, 0.05)
&&&&&&&&&&&&&&&&&&& Dim driveChainItemBuilder1 As CAM.DriveChainItemBuilder
&&&&&&&&&&&&&&&&&&& driveChainItemBuilder1 = surfaceContourBuilder1.DmcurveBuilder.CreateDpmcvDriveCurve(section1)
&&&&&&&&&&&&&&&&&&& surfaceContourBuilder1.DmcurveBuilder.DpmcvDriveCurves.Append(driveChainItemBuilder1)
&&&&&&&&&&&&&&&&&&& section1.SetAllowedEntityTypes(Section.AllowTypes.CurvesAndPoints)
&&&&&&&&&&&&&&&&&&& section1.SetInterpart(False)
&&&&&&&&&&&&&&&&&&& Dim spline1 As Curve = edges(i)
&&&&&&&&&&&&&&&&&&& curves1(0) = spline1
&&&&&&&&&&&&&&&&&&& Dim curveDumbRule1 As CurveDumbRule = workPart.ScRuleFactory.CreateRuleCurveDumb(curves1)
&&&&&&&&&&&&&&&&&&& section1.AllowSelfIntersection(True)
&&&&&&&&&&&&&&&&&&& Dim rules1(0) As SelectionIntentRule
&&&&&&&&&&&&&&&&&&& rules1(0) = curveDumbRule1
&&&&&&&&&&&&&&&&&&& Dim nullNXObject As NXObject = Nothing
&&&&&&&&&&&&&&&&&&& Dim helpPoint1 As Point3d = New Point3d(0.0, 0.0, 0.0)
&&&&&&&&&&&&&&&&&&& section1.AddToSection(rules1, spline1, nullNXObject, nullNXObject, helpPoint1, Section.Mode.Create, False)
&&&&&&&&&&&&&&&&&&& Dim nXObject1 As NXObject
&&&&&&&&&&&&&&&&&&& nXObject1 = surfaceContourBuilder1.Commit()
&&&&&&&&&&&&&&&&&&& surfaceContourBuilder1.Destroy()
&&&&&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&& Next
&&&&&&&&&&&&&&&
&&&&&&&&&&& Else
&&&&&&&&&&&&&& &MsgBox("选择的操作多超过1个请重新选择!", MsgBoxStyle.OkOnly, "提示信息")
&&&&&&&&&&& End If
&&&&&&& Catch ex As Exception
&&&&&&&&&&& '---- Enter your exception handling code here -----
&&&&&&&&&&& errorCode = 1
&&&&&&&&&&& theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
&&&&&&& End Try
&&&&&&& apply_cb = errorCode
&&& End Function
&&& '------------------------------------------------------------------------------
&&& 'Callback Name: update_cb
&&& '------------------------------------------------------------------------------
&&& Public Function update_cb(ByVal block As NXOpen.BlockStyler.UIBlock) As Integer
&&&&&&& Try
&&&&&&&&&&& Dim edgeSelectProps As PropertyList = edge_select0.GetProperties()
&& &&&&&&&&&If block Is edge_select0 Then
&&&&&&&&&&& '---- Enter your code here -----
&&&&&&&&&&&
&&&&&&&&&&& End If
&&&&&&& Catch ex As Exception
&&&&&&&&&&& '---- Enter your exception handling code here -----
&&&&&&&&&&& theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
&&&&&&& End Try
&&&&&&& update_cb = 0
&&& End Function
&&& '------------------------------------------------------------------------------
&&& 'Callback Name: ok_cb
&&& '------------------------------------------------------------------------------
&&& Public Function ok_cb() As Integer
&&&&&&& Dim errorCode As Integer = 0
&&&&&&& Try
&&&&&&&&&&& '---- Enter your callback code here -----
&&&&&&&&&&& errorCode = apply_cb()
&&&&&&& Catch ex As Exception
&&&&&&&&&&& '---- Enter your exception handling code here -----
&&&&&&&&&&& errorCode = 1
&&&&&&&&&&& theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
&&&&&&& End Try
&&&&&&& ok_cb = errorCode
&&& End Function
SelectLines.dlx 的界面 参照下图：
喜欢该文的人也喜欢vb.net 设置EXCEL单元格的边框，只在下边有边框，其他三边没有边框，求代码_百度知道
vb.net 设置EXCEL单元格的边框，只在下边有边框，其他三边没有边框，求代码
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
lovermagic
来自电脑网络类芝麻团
lovermagic
采纳数：130
获赞数：229
参与团队：
objRange.Borders(XlBordersIndex.xlEdgeBottom).LineStyle = XlLineStyle.xlContinuousobjRange.Borders(XlBordersIndex.xlEdgeBottom).ColorIndex = 1objRange.Borders(XlBordersIndex.xlEdgeBottom).Weight = XlBorderWeight.xlThin
vincentwen1979
vincentwen1979
采纳数：202
获赞数：343
讲一个通用的.在Excel2003里面。录制宏。然后操作Excel调成你想要的格式。去宏里面看代码。在Vb.Net.建立Excel application 对象，建立Workbook对象，建立Worksheet对象。对Worksheet里面目标Cell(Range对象)进行类似操作就可以了。查找对应属性使用对象浏览器。4前提需要对Excel.Interop进行引用。
采纳数：166
获赞数：688
vincentwen1979 已经回答。
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。}