borderWidth如何获取？

luojihaidao 2010-10-04 11:41:43



<div style="border:1px red solid">aaa</div>

div.style.borderWidth

得到的结果是1px;

有没有其它方法直接得到1，像是div.offsetWidth这样的属性（不用parseInt(div.style.borderWidth) ）。

自己找了半天没找到，高手请教。

...全文

141 4 打赏收藏转发到动态举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

mingfish2 2010-10-04

打赏
举报

回复

$(".selected").css("border-left-width")

hookee 2010-10-04

打赏
举报

回复

parseInt(div.style.borderWidth)

luojihaidao 2010-10-04

打赏
举报

回复

~!~!~

ws_hgo 2010-10-04

打赏
举报

回复

<div id="a" style="border:1px red solid">aaa</div>



alert(parseInt(document.getElementById('a').style.borderWidth

))

Option Explicit Dim Resolution As String '延时 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '电脑音量 Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwFlags As Long) As Long Private Const CCDEVICENAME As Long = 32 Private Const CCFORMNAME As Long = 32 Private Const DM_BITSPERPEL As Long = &H40000 Private Const DM_PELSWIDTH As Long = &H80000 Private Const DM_PELSHEIGHT As Long = &H100000 Private Const DM_DISPLAYFLAGS As Long = &H200000 Private Const DM_DISPLAYFREQUENCY = &H400000 Private Const CDS_FORCE As Long = &H80000000 Private Const BITSPIXEL As Long = 12 Private Const HORZRES As Long = 8 Private Const VERTRES As Long = 10 Private Const VREFRESH = 116 Private Type DEVMODE dmDeviceName As String * CCDEVICENAME dmSpecVersion As Integer dmDriverVersion As Integer dmSize As Integer dmDriverExtra As Integer dmFields As Long dmOrientation As Integer dmPaperSize As Integer dmPaperLength As Integer dmPaperWidth As Integer dmScale As Integer dmCopies As Integer dmDefaultSource As Integer dmPrintQuality As Integer dmColor As Integer dmDuplex As Integer dmYResolution As Integer dmTTOption As Integer dmCollate As Integer dmFormName As String * CCFORMNAME dmUnusedPadding As Integer dmBitsPerPel As Integer dmPelsWidth As Long dmPelsHeight As Long dmDisplayFlags As Long dmDisplayFrequency As Long End Type '设置窗口顶置 Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, _ ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long '最小化到托盘 Private Declare Function Shell_NotifyIcon Lib "shell32.dll" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long Const NIM_ADD = &H0 Const NIM_DELETE = &H2 Const NIF_ICON = &H2 Const NIF_MESSAGE = &H1 Const NIF_TIP = &H4 Const WM_MOUSEMOVE = &H200 Const WM_LBUTTONDBLCLK = &H203 Private Type NOTIFYICONDATA cbSize As Long hWnd As Long uId As Long uFlags As Long uCallBackMessage As Long hIcon As Long szTip As String * 64 End Type Dim tray As NOTIFYICONDATA Private Sub Form_DblClick() Unload Me End End Sub Private Sub Form_Load() '获取分辨率 Resolution = GetDeviceCaps(Me.hdc, HORZRES) & "*" & GetDeviceCaps(Me.hdc, VERTRES) 'Label11.Caption = Resolution If Resolution = "1366*768" Then Me.Left = 7500 If Resolution = "1024*768" Then Me.Left = 4900 If Resolution = "800*600" Then Me.Left = 3200 Me.Top = 1000 End If '设置为透明窗体 Me.BackColor = vbBlue Dim rtn As Long rtn = GetWindowLong(hWnd, GWL_EXSTYLE) rtn = rtn Or WS_EX_LAYERED SetWindowLong hWnd, GWL_EXSTYLE, rtn SetLayeredWindowAttributes hWnd, vbBlue, 190, LWA_COLORKEY '总在最上 SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, 2 Or 1 End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim msg As Long msg = X / 15 If msg = WM_LBUTTONDBLCLK Then Me.Show Shell_NotifyIcon NIM_DELETE, tray End If Shape1.BorderWidth = 2 Shape2.BorderWidth = 2 Shape3.BorderWidth = 2 Shape4.BorderWidth = 2 Shape5.BorderWidth = 2 Shape6.BorderWidth = 2 Shape7.BorderWidth = 2 Shape8.BorderWidth = 1 Shape9.BorderWidth = 1 End Sub Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape1.BackStyle = 0 End Sub Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape1.BackStyle = 1 End Sub Private Sub Label2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape2.BackStyle = 0 End Sub Private Sub Label2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape2.BackStyle = 1 End Sub Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape3.BackStyle = 0 End Sub Private Sub Label3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape3.BackStyle = 1 End Sub Private Sub Label4_Click() Shell "cmd.exe /c shutdown -r -t 0", vbHide End Sub Private Sub Label4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape4.BackStyle = 0 End Sub Private Sub Label4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape4.BackStyle = 1 End Sub Private Sub Label5_Click() '音量增大 SendMessage hWnd, 793, 197266, 655360 Sleep 5 SendMessage hWnd, 793, 197266, 655360 End Sub Private Sub Label5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape5.BackStyle = 0 End Sub Private Sub Label5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape5.BackStyle = 1 End Sub Private Sub Label6_Click() Shell "cmd.exe /c shutdown -s -t 0", vbHide End Sub Private Sub Label6_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape6.BackStyle = 0 End Sub Private Sub Label6_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape6.BackStyle = 1 End Sub Private Sub Label7_Click() '音量减小 SendMessage hWnd, 793, 197266, 589824 Sleep 5 SendMessage hWnd, 793, 197266, 589824 End Sub Private Sub Label7_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape7.BackStyle = 0 End Sub Private Sub Label7_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape7.BackStyle = 1 End Sub Private Sub Label8_Click() Timer1.Enabled = False Me.WindowState = 1 End Sub Private Sub Label8_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape8.BackStyle = 0 End Sub Private Sub Label8_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape8.BackStyle = 1 End Sub Private Sub Label9_Click() tray.cbSize = Len(tray) tray.uId = vbNull tray.hWnd = Me.hWnd tray.uFlags = NIF_TIP Or NIF_MESSAGE Or NIF_ICON tray.uCallBackMessage = WM_MOUSEMOVE tray.hIcon = Me.Icon tray.szTip = "多媒体中控台" & vbNullChar Shell_NotifyIcon NIM_ADD, tray Me.Hide End Sub Private Sub Label9_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape9.BackStyle = 0 End Sub Private Sub Label9_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape9.BackStyle = 1 End Sub Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape1.BorderWidth = 5 End Sub Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape2.BorderWidth = 5 End Sub Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape3.BorderWidth = 5 End Sub Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape4.BorderWidth = 5 End Sub Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape5.BorderWidth = 5 End Sub Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape6.BorderWidth = 5 End Sub Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape7.BorderWidth = 5 End Sub Private Sub Label8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape8.BorderWidth = 3 End Sub Private Sub Label9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape9.BorderWidth = 3 End Sub Private Sub Timer1_Timer() '获取分辨率 Resolution = GetDeviceCaps(Me.hdc, HORZRES) & "*" & GetDeviceCaps(Me.hdc, VERTRES) 'Label11.Caption = Resolution If Resolution = "1366*768" Then Me.Left = 7500 If Resolution = "1024*768" Then Me.Left = 4900 If Resolution = "800*600" Then Me.Left = 3200 Me.Top = 1000 End If '总在最上 SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, 2 Or 1 End Sub Private Sub Timer2_Timer() If Me.WindowState = 2 Then Timer1.Enabled = True End If End Sub

1．外观属性说明 BackColor 获取或设置报表元素及其子控件的背景色 BorderColor 获取或设置报表元素及其子控件的边框色。 BorderDashStyle 获取或设置报表元素及其子控件的边框虚线样式。 Borders 获取或设置报表元素及其子控件的可视边框 (上、右、下、左)。 BorderWidth 获取或设置报表元素及其子控件的边框宽度。 Font 获取或设置报表元素及其子控件的字体选项 (字体名称、大小等)。 ForeColor 获取或设置报表元素及其子控件

问题：用jquery获取div等块级元素的宽高时不能精确获取，只能得到整数部分像素，不能获取小数位px。请看下面事故：

所以，只能想想其他办法了，回想起平常使用高德地图搜索某个地名的时候，好像会有个边界区域给我们绘制出来，然后我就觉得它既然能画出来，应该会有办法从某些渠道获取，或者高德地图会提供相应的API。于是乎，去到了高德开放平台仔细的查看了一下他提供的api，哈哈，果然有！有了接口，接下来就是撸码了。可下载的数据包含省级geojson行政边界数据、市级geojson行政边界数据、区/县级geojson行政边界数据、省市区县街道行政编码四级联动数据（可精确到乡镇/街道级）、省市区县街道乡村五级行政编码。

获取页面元素的方式 1.通过js的dom方法:可以使用内置对象 document 上的 getElementById 方法来获取页面上设置了 id 属性的元素,获取到的是一个 html 对象,然后将它赋值给一个变量. 获取页面元素那么必须将获取元素的代码块放置在事件中如果把 javascript 写在元素的上面,就会出错,因为页面上从上往下加载执行的,javascript 去页面上获取元素 d...

87,910

社区成员

224,616

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章