当前位置：文档库 › MO中常用的操作方法全

MO中常用的操作方法全

MO中常用的操作方法(1)

1.地图放大

Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Set Map1.Extent = Map1.TrackRectangle

End Sub

2.地图移动

以下是右键移动、左键放大的代码

Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbLeftButton Then

Set Map1.Extent = Map1.TrackRectangle

ElseIf Button = vbRightButton Then

Map1.Pan

End If

End Sub

3.地图缩小

以下是右键缩小、左键放大的代码

Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim r As MapObjects2.Rectangle

If Button = vbLeftButton Then

Set Map1.Extent = Map1.TrackRectangle

ElseIf Button = vbRightButton Then

Set r = Map1.Extent

r.ScaleRectangle 1.5

Map1.Extent = r

End If

End Sub

4.恢复原始大小

Private Sub Command1_Click()

Set Map1.Extent = Map1.FullExtent

End Sub

5.定位到具体对象

Sub UpdateMap()

Dim newExt As Object

strExp = "CONTINENT = '" + listContinents.Text + "'"

Set recs = https://www.wendangku.net/doc/2f18342632.html,yers(0).Searchexpression_r(strExp)

If recs.EOF Then

Set newExt = Map1.FullExtent ' set a default extent

Else

Set shp = recs("Shape").Value

Set newExt = shp.Extent

Dim i

i = 0

Do While Not recs.EOF

Set shp = recs("Shape").Value

Set newExt = newExt.Union(shp.Extent) ' <- this works

i = i + 1

recs.MoveNext

Loop

End If

If i > 1 Then

Set newExt = newExt.Extent

End If

Form1.Map1.Extent = newExt

End Sub

5.加载图层

Private Sub Form_Load()

Dim dc As New DataConnection

Dim layer As MapLayer

dc.Database = App. Path

If Not dc.Connect Then

MsgBox "在指定的文件夹下没找到图层数据文件！"

End

End If

Set layer = New MapLayer

Set layer.GeoDataset = dc.FindGeoDataset("States")

https://www.wendangku.net/doc/2f18342632.html,yers.Add layer

Set layer = New MapLayer

Set layer.GeoDataset = dc.FindGeoDataset("Rivers")

https://www.wendangku.net/doc/2f18342632.html,yers.Add layer

Map1.Refresh

End Sub

6.卸载图层

https://www.wendangku.net/doc/2f18342632.html,yers.Remove 0 '清除Map1的第0层图层。

https://www.wendangku.net/doc/2f18342632.html,yers.Clear '清除Map1的所有图层。

7.移动图层

https://www.wendangku.net/doc/2f18342632.html,yers.MoveTo 2, 0 '第2层移动到第0层。

8.选择图层

Set layer = https://www.wendangku.net/doc/2f18342632.html,yers(0) '用图层的索引号。

Set layer = https://www.wendangku.net/doc/2f18342632.html,yers(“States”) '用图层名称。

9.隐藏图层

Set layer = https://www.wendangku.net/doc/2f18342632.html,yers(0) '用图层的索引号。

layer.Visible = False

10.设置图层颜色

Set layer = New MapLayer

Set layer.GeoDataset = dc.FindGeoDataset("Rivers")

layer.Symbol.Color = moYellow

https://www.wendangku.net/doc/2f18342632.html,yers.Add layer

11.设置面属性

layer.Symbol.Size = 1 '界线宽度

layer.Symbol.Style = 2 '填充方式（参见附录D）

layer.Symbol.OutlineColor = moBrown '界线颜色

12.设置线属性

layer.Symbol.Size = 1 '线宽度

layer.Symbol.Style = 2 '线的样式（参见附录D）

layer.Symbol. Color = moBrown '线颜色

13.设置点属性

layer.Symbol.Size = 1 '点的大小

layer.Symbol.Style = 2 '点的样式（参见附录D）

layer.Symbol. Color = moBrown '点颜色

14.使用Legend控件

在Form_Load中写入：

legend1.setMapSource Map1

legend1.LoadLegend True

在添加以下事件，可以在显示和隐藏图层后刷新

Private Sub legend1_AfterSetLayerVisible(index As Integer, isVisible As Boolean)

Map1.Refresh

End Sub

15.在Legend中给图层重命名

Set layer = https://www.wendangku.net/doc/2f18342632.html,yers(0)

layer. Name = "河流"

16.添加导航图

'使Map2和Map1联动；对Map操作后(加载图层、放大、刷新…)每个图层都会执行一次，index表示不同的图层在执行。

Private Sub Map1_AfterLayerDraw(ByVal Index As Integer, ByVal canceled As Boolean, ByVal hdc As stdole.OLE_HANDLE)

If Index = 0 Then

Map2.TrackingLayer.Refresh True’触发Map2_AfterTrackingLayerDraw过程

End If

End Sub

'在Map2上画红色指示框；

Private Sub Map2_AfterTrackingLayerDraw(ByVal hdc As stdole.OLE_HANDLE)

Dim sym As New Symbol

sym.OutlineColor = moRed

sym.Size = 2

sym.Style = moTransparentFill

Map2.DrawShape Map1.Extent, sym

End Sub

'实现用Map2改变Map1的功能；

Private Sub Map2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Dim curRectangle As MapObjects2.Rectangle

Dim pt As New MapObjects2.Point

'画方框改变Map1窗口

Set curRectangle = Map2.TrackRectangle

Set Map1.Extent = curRectangle

'点击改变Map1位置

Set pt = Map2.ToMapPoint(x, y)

Map1.CenterAt pt.x, pt.y

End Sub

17.在导航图中移动方框

'在工程中添加MO提供的类模块DragFeedback

Dim g_feedback As DragFeedback

Private Sub Map2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) '将点击转换为Map2上的点对象；

Dim p As Point

Set p = Map2.ToMapPoint(x, y)

'如果点击发生在方框内，开始拖动；

If Map1.Extent.IsPointIn(p) Then

Set g_feedback = New DragFeedback

g_feedback.DragStart Map1.Extent, Map2, x, y

End If

End Sub

'开始拖动方框

Private Sub Map2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) If Not g_feedback Is Nothing Then

g_feedback.DragMove x, y

End If

End Sub

'拖动完成，并在Map1中显示新位置；

Private Sub Map2_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Not g_feedback Is Nothing Then

Map1.Extent = g_feedback.DragFinish(x, y)

Set g_feedback = Nothing

End If

End Sub

18.显示一个区域的属性

Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Dim ly1 As MapObjects2.MapLayer

Dim fld As MapObjects2.Field

Dim newItem As Object

Dim p As MapObjects2.Point

Dim recs As MapObjects2.Recordset

Set ly1 = https://www.wendangku.net/doc/2f18342632.html,yers("States")

Set p = Map1.ToMapPoint(x, y)

Set recs = ly1.SearchShape(p, moPointInPolygon, "")

If Not recs.EOF Then

ListView1.ListItems.Clear

For Each fld In recs.Fields ' iterate over the fields

Set newItem = ListView1.ListItems.Add

newItem.Text = https://www.wendangku.net/doc/2f18342632.html, '字段名

newItem.SubItems(1) = fld.ValueAsString '字段值

Next fld

End If

End Sub

19.闪烁指定图元

Map1.FlashShape recs("shape").Value, 3

20.使用地图比例尺工具ScaleBar

Private Sub refreshScale()

sbScaleBar1.MapExtent.MaxX = Map1.Extent.Right

sbScaleBar1.MapExtent.MinX = Map1.Extent.Left

sbScaleBar1.MapExtent.MaxY = Map1.Extent.Bottom

sbScaleBar1.MapExtent.MinY = Map1.Extent.Top

sbScaleBar1.PageExtent.MinX = Map1.Left / Screen.TwipsPerPixelX

sbScaleBar1.PageExtent.MinY = Map1.Top / Screen.TwipsPerPixelY

sbScaleBar1.PageExtent.MaxX = (Map1.Left + Map1.Width) / Screen.TwipsPerPixelX

sbScaleBar1.PageExtent.MaxY = (Map1.Top + Map1.Height) / Screen.TwipsPerPixelY

sbScaleBar1.Refresh

StatusBar1.Panels(1).text = "比列1 : " & Format$(sbScaleBar1.RFScale, "###,###,###")

End Sub

Private Sub Map1_AfterLayerDraw(ByVal Index As Integer, ByVal canceled As Boolean, ByVal hdc As stdole.OLE_HANDLE)

Call refreshScale

End Sub

21.鼠标提示TipText

'在工程中添加MO提供的类模块MapTip

Dim m_mapTip As New MapTip

Private Sub Form_Load()

Dim layer As New MapObjects2.MapLayer

DrawLayer

'初始化MapTip类；

Set layer = https://www.wendangku.net/doc/2f18342632.html,yers("States")

m_mapTip.Initialize Map1, tmrToolTip, picToolTip, lblToolTip

m_mapTip.SetLayer layer, "NAME"

End Sub

Private Sub Map1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) m_mapTip.MouseMove x, y

End Sub

Private Sub tmrToolTip_Timer()

m_mapTip.Timer

End Sub

22.地图打印

Private Sub Form_Load()

DrawLayer

Label1.Caption = "你使用的打印机是：" & Printer.DeviceName

End Sub

Private Sub Command1_Click()

On Error GoTo err1

Map1.PrintMap "MyMap", "", Option1.Value’打印序列中的名称,输出文件名,打印方向MsgBox "打印完成。"

Exit Sub

err1:

MsgBox Err.Description + "，程序停止。"

Unload Me

End Sub

Private Sub Command2_Click()

On Error GoTo err1

Printer.Print

Map1.OutputMap Printer.hdc

Printer.EndDoc

MsgBox "打印完成。"

Exit Sub

err1:

MsgBox Err.Description + "，程序停止。"

Unload Me

End Sub

23.DrawShape方法画点

Dim Pts As New MapObjects2.Points

Dim p As Point

Dim sym As New Symbol

Private Sub Map1_AfterTrackingLayerDraw(ByVal hDC As stdole.OLE_HANDLE) sym.Color = moRed

sym.SymbolType = moPointSymbol

sym.Size = 5

If Not Pts Is Nothing Then

Map1.DrawShape Pts, sym

End If

End Sub

Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Set p = Map1.ToMapPoint(X, Y)

Pts.Add p

End Sub

24.DrawShape方法画线

Dim g_Line As MapObjects2.Line

Dim Pts As MapObjects2.Points

Private Sub Map1_AfterTrackingLayerDraw(ByVal hDC As stdole.OLE_HANDLE) Dim sym As New Symbol

If Not g_Line Is Nothing Then

sym.Color = moBlack

Map1.DrawShape Pts, sym

If Pts.Count > 1 Then

sym.Color = moRed

Map1.DrawShape g_Line, sym

End If

End Sub

Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim p As Point

If Button = 1 Then

If g_Line Is Nothing Then

Set g_Line = New MapObjects2.Line

End If

If Pts Is Nothing Then

Set Pts = New MapObjects2.Points

End If

Set p = Map1.ToMapPoint(X, Y)

Pts.Add p

If Pts.Count = 1 Then

g_Line.Parts.Add Pts’也可去掉该IF语句，只保留该语句

Set Pts = g_Line.Parts(0)’使用该语句后在Pts中添加的点，Line中自动添加

End If

Map1.TrackingLayer.Refresh True

End If

End Sub

25.DrawShape方法画多边形

Dim Poly As MapObjects2.Polygon

Dim Pts As MapObjects2.Points

Private Sub Command1_Click()

Dim p As Point

Set Poly = New MapObjects2.Polygon

Set Pts = New MapObjects2.Points

Set p = Map1.ToMapPoint(900, 100)

Pts.Add p

Set p = Map1.ToMapPoint(3500, 1500)

…

Pts.Add p

Poly.Parts.Add Pts

Set Pts = Poly.Parts(0)’不使有该语句，另向Pts中添加的点不能添加到Poly中

Map1.Refresh

End Sub

Private Sub Map1_AfterTrackingLayerDraw(ByVal hDC As stdole.OLE_HANDLE) If Not Poly Is Nothing Then

If Pts.Count > 1 Then

Dim sym As New Symbol

sym.Color = moRed

sym.SymbolType = moFillSymbol

sym.Size = 5

Map1.DrawShape Poly, sym

End If

End Sub

26.DrawShape方法画矩形和椭圆

’DrawShape方法画的图形能随地图自动缩放

Dim Rect As MapObjects2.Rectangle’矩形

'Dim Rect As MapObjects2.Ellipse’椭圆

Private Sub Command1_Click()

Dim Dist As Double

Dim Pt As New MapObjects2.Point

Set Rect = New MapObjects2.Rectangle’矩形

'Set Rect = New MapObjects2.Ellipse’椭圆

Dist = 0.2

Set Pt = Map1.ToMapPoint(2500, 1500)

Rect.Right = Pt.X + Dist

Rect.Left = Pt.X - Dist

Rect.Top = Pt.Y + Dist

Rect.Bottom = Pt.Y - Dist

Map1.Refresh

End Sub

Private Sub Map1_AfterTrackingLayerDraw(ByVal hDC As stdole.OLE_HANDLE) If Not Rect Is Nothing Then

Dim sym As New Symbol

sym.SymbolType = moFillSymbol

sym.Style = 0

sym.Size = 3

sym.Color = moBlue

Map1.DrawShape Rect, sym

End If

End Sub

27.Track方法画图

Dim Rect As MapObjects2.Rectangle

Dim Eli As MapObjects2.Ellipse

Dim Poly As MapObjects2.Polygon

Private Sub Map1_AfterTrackingLayerDraw(ByVal hDC As stdole.OLE_HANDLE)

Dim sym As New MapObjects2.Symbol

sym.SymbolType = moFillSymbol

sym.Style = moDiagonalCrossFill

If Not Rect Is Nothing Then

sym.Color = moBlue

Map1.DrawShape Rect, sym

End If

If Not Eli Is Nothing Then

sym.Color = moRed

Map1.DrawShape Eli, sym

End If

If Not Poly Is Nothing Then

sym.Color = moGreen

Map1.DrawShape Poly, sym

End If

End Sub

Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Option1 Then

Set Rect = Map1.TrackRectangle

ElseIf Option2 Then

Set Eli = Map1.TrackCircle

Else

Set Poly = Map1.TrackPolygon

End If

Map1.TrackingLayer.Refresh True

End Sub

28.DrawText方法写文字

Dim TextSym As New MapObjects2.TextSymbol

Dim P1 As MapObjects2.Point

Private Sub Form_Load()

TextSym.Color = moBrown

TextSym.Font.Size = 20

TextSym.Height = 0 ’等于0不随地图自动缩放’不等于0随地图自动缩放

DrawLayer

End Sub

Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Set P1 = Map1.ToMapPoint(X, Y)

Map1.Refresh

End Sub

Private Sub Map1_AfterLayerDraw(ByVal Index As Integer, ByVal canceled As Boolean, ByVal hDC As stdole.OLE_HANDLE)

If Not P1 Is Nothing Then

’P1可以是点、点集、线和矩形

Map1.DrawText "MapObjects 演示", P1, TextSym

End If

End Sub

29.Symbol

’参见附录D.3

’其中moTrueTyperMarker可以扩充显示字体中的符号

With Sym

.SymbolType = moPointSymbol’x

.Style = moTrueTypeMarker

.Font = "ESRI Transportation & Municipal"

.Size = 100

.Color = moRed

.CharacterIndex = 101

End With

’线、面和MOsymEdit结合使用也可扩充显示样式

Dim ps As New MOSYMBOLLib.MoPenset

ps.Load App.Path & "\Line\moline.lin"

.Symbol.Custom = ps.Item(index)

30.AddEvent

Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Set Pt = Map1.ToMapPoint(X, Y)

Map1.TrackingLayer.SymbolCount = 1

With Map1.TrackingLayer.Symbol(0)

.SymbolType = moPointSymbol

.Style = moTrueTypeMarker

.Font = "ESRI Transportation & Municipal"

.CharacterIndex = 103

.Size = 20

.Color = moGreen

End With

’pt还可以是矩形、圆形、多边形等

Map1.TrackingLayer.AddEvent Pt, 0

End Sub

31.Intersect(交)

语法：set resultShape=object.Intersect(intersectShape [,extent])

Extent:一个矩形范围

Dim resultShape As MapObjects2.Polygon

Dim recSelection As MapObjects2.Recordset

Dim intersectShape As MapObjects2.Polygon

Dim rect As MapObjects2.Rectangle

Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Set rect = Map1.TrackRectangle

strExpression = "STATE_ID = 25" '查找编码为25的州；

Set recSelection = https://www.wendangku.net/doc/2f18342632.html,yers("States").Searchexpression_r(strExpression)

Set intersectShape = recSelection.Fields("Shape").Value

Set resultShape = rect.Intersect(intersectShape)

Map1.Refresh

End Sub

32.Union(并)

语法：set resultShape=object.Union(unionShape [,extent])

Extent:一个矩形范围

32.Difference(差)

语法：set resultShape=object.Difference(subtractShape [,extent])

Extent:一个矩形范围

33.Xor(异或)

语法：set resultShape=object.Xor(xorShape [,extent])

Extent:一个矩形范围

34.Buffer(缓冲)

语法：set resultShape=object.Buffer(bufferDistance [,extent])

bufferDistance:增减距离，对于点对象是半径

Extent:一个矩形范围

35.Offset(位移)

语法：object.Offset deltaX,deltaY

注意：位移量是用地图的Unit的单位表示的

36.Inset(缩放)

语法：object.Offset deltaX,deltaY

deltaX:宽度方向的变化量，如果为负值，则宽度增大。

deltaY:高度方向的变化量，如果为正值，则宽度增大。

注意：位移量是用地图的Unit的单位表示的

37.求线段的长度

Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Dim Pl As MapObjects2.Point

Dim Shp As MapObjects2.Line

Dim Rleng As Single

Const Rx = 30

Set Pl = Map1.ToMapPoint(x, y)

Set Recs = https://www.wendangku.net/doc/2f18342632.html,yers("Rivers").SearchByDistance(Pl, Map1.ToMapDistance(30), "")

If Recs.EOF Then

Label1.Caption = "没有找到对象。"

Else

Set Shp = Recs.Fields("Shape").Value

Map1.FlashShape Shp, 2

Rleng = Format(Shp.Length * Rx, "0.00")

Label1.Caption = "找到" & Recs.Fields("NAME").Value & "河，长度为" & Rleng & "公里。"

End If

Map1.Refresh

End Sub

38.求地区的面积

Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

Dim Pl As MapObjects2.Point

Dim Shp As MapObjects2.Polygon

Dim Area As Single

Const Ak = 1000

Set Pl = Map1.ToMapPoint(x, y)

Set Recs = https://www.wendangku.net/doc/2f18342632.html,yers("States").SearchByDistance(Pl, Map1.ToMapDistance(30), "")

If Recs.EOF Then

Label1.Caption = "没有找到对象。"

Else

Set Shp = Recs.Fields("Shape").Value

Map1.FlashShape Shp, 2

Area = Format(Shp.Area * Ak, "0.00")

Label1.Caption = "找到" & Recs.Fields("NAME").Value & "州，面积为" & Area & "平方公里。"

End If

Map1.Refresh

End Sub

39.计算2个对象之间的距离(DistanceTo)

语法：dist=object.DistanceTo(shape)

注意：返回Unit定义的距离

如果一个对象是Polygon或Rectangle，返回最近一条边的距离。如果两个对象相交或包容，则返回0

Private Sub Command1_Click()

Set oPoint1 = Map1.Extent.Center

Map1.Refresh

End Sub

Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Dim fDist As Double

If oPoint1 Is Nothing Then

MsgBox "先单击“显示点”"

Exit Sub

Else

Set oPoint2 = Map1.ToMapPoint(x, y)

’oPoint2和oPoint1可以用Points、Line、Polygon和Rectangle代潜

fDist = oPoint2.DistanceTo(oPoint1)

Map1.TrackingLayer.Refresh True

MsgBox "距离＝" & Format(fDist, "fixed")

End If

End Sub

40.计算点到线段之间的距离(DistanceToSegment)

语法：dist=object.DistanceToSegment(Point1,Point2)

object:点对象

Point1：线段的第1个点

Point2：线段的第2个点

Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Dim fDist As Double

Set moPoint = Map1.ToMapPoint(x, y)

fDist = moPoint.DistanceToSegment(moPoints(0), moPoints(1))

Map1.TrackingLayer.Refresh True

MsgBox "距离＝" & Format(fDist, "fixed")

End Sub

41.判断点是否在对象内部(IsPointIn)

语法：vbl=object.IsPointIn point

Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Dim bl As Boolean

If oPoint1 Is Nothing Then

MsgBox "先画点"

Exit Sub

End If

Set Poly = Map1.TrackPolygon

bl = Poly.IsPointIn(oPoint1)

Map1.TrackingLayer.Refresh True

If bl Then

MsgBox "在其中"

Else

MsgBox "不在其中"

End If

End Sub

42.Searchexpression_r(表达式查找)

语法：Set variable=object.Searchexpression_r(expression)

Variable：记录集变量

object：一般为图层对象

expression:相当于SQL语句Where后面的表达式。如果为空返回所有记录。

Dim g_symSelection As MapObjects2.Symbol

Dim recSelection as MapObjects2.Recordset

Private Sub Form_Load()

Dim strExpression As String

DrawLayer

strExpression = "STATE_ID = 24"

Set recSelection = https://www.wendangku.net/doc/2f18342632.html,yers(0).Searchexpression_r(strExpression)

End Sub

Private Sub Map1_AfterLayerDraw(ByVal index As Integer, ByVal canceled As Boolean, ByVal hDC As stdole.OLE_HANDLE)

Map1.DrawShape recSelection, g_symSelection

End Sub

43.SearchByDistance(距离查找)

语法：Set variable=object.SearchByDistance(shape,tolerance,expression)

Variable：记录集变量

Object：对象

shape：地图对象（Point、Line、Polygon、Rectangle对象、Points集合或Recordset对象）tllerance:误差范围（数值）

Expression: SQL表达式，MO采用ANSI SQL标准。

注意：通过设置GeometryEnvironment常数（=0）,可以进行3D查询.

Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '将点击转换为点对象；

Set Pp = Map1.ToMapPoint(X, Y)

'距离查找；

Set recset = https://www.wendangku.net/doc/2f18342632.html,yers(0).SearchByDistance(Pp, Text1.Text, "")

'调用Map1_AfterLayerDraw显示查找结果；

Map1.Refresh

End Sub

44.SearchByShape(图形查找)

语法：Set variable=object.SearchShape(shape,searchMethod,expression)

searchMethod:查找方法，参见附录D.5，缺省值是moExtentOverlaps。

Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim pt As MapObjects2.Point

Set pt = Map1.ToMapPoint(X, Y)

Set recset1 = https://www.wendangku.net/doc/2f18342632.html,yers(0).SearchShape(pt, moPointInPolygon, "")

Set recset2 = https://www.wendangku.net/doc/2f18342632.html,yers(0).SearchShape(recset1, moCommonPoint, "")

Map1.Refresh

End Sub

45.MO的图层渲染

语法：object.Renderer[=renderer]

Object:一般为图层对象，表达为Layer,https://www.wendangku.net/doc/2f18342632.html,yers.Item(0)或https://www.wendangku.net/doc/2f18342632.html,yers(0)。

Renderer:表示渲染方式的对象表达式，可以是ValueMapRenderer、ClassBreaksRenderer、LabelRenderer、LabelPlacer、ChartRenderer、DotDensityRenderer或GroupRenderer

46.独立值符号渲染(ValueMapRenderer)

Dim moRecset As MapObjects2.Recordset

Dim oRenderer As New MapObjects2.ValueMapRenderer

Private Sub Command1_Click()

Dim strs As New MapObjects2.Strings

Dim sFldname As String

Dim oSym As New MapObjects2.Symbol

Dim i As Integer

Set moRecset = https://www.wendangku.net/doc/2f18342632.html,yers(0).Records

sFldname = "AREA"

Do While Not moRecset.EOF

strs.Add moRecset(sFldname).ValueAsString

moRecset.MoveNext

Loop

'设置渲染参数

Set https://www.wendangku.net/doc/2f18342632.html,yers(0).Renderer = oRenderer

oRenderer.Field = sFldname

'设置缺省值

https://www.wendangku.net/doc/2f18342632.html,eDefault = True

Set oSym = oRenderer.DefaultSymbol

oSym.Color = moPaleYellow

'设置每一个具体的符号

For i = 0 To oRenderer.ValueCount - 1

oRenderer.Value(i) = strs(i) '每一个符号所代表的数值

oRenderer.Symbol(i).Style = 10 '可以设置每一个符号具体的Symbol Next i

Map1.Refresh

Set oRenderer = Nothing

Set strs = Nothing

Set moRecset = Nothing

End Sub

47.分组符号渲染(ClassBreaksRenderer)

Private Sub Command1_Click()

Dim i As Integer

Dim oMapLayer As MapObjects2.MapLayer

Dim oStats As MapObjects2.Statistics

Dim oClassRend As New MapObjects2.ClassBreaksRenderer

Dim fBreakVal As Double

Set oMapLayer = https://www.wendangku.net/doc/2f18342632.html,yers("cities")

Set oMapLayer.Renderer = oClassRend

With oClassRend

.SymbolType = moPointSymbol

.Field = "POPULATION"

’统计

Set oStats = oMapLayer.Records.CalculateStatistics("POPULATION") fBreakVal = oStats.Mean - (oStats.StdDev * 3)

For i = 0 To 6

If fBreakVal >= oStats.Min And fBreakVal <= oStats.Max Then

.BreakCount = .BreakCount + 1

.Break(.BreakCount - 1) = fBreakVal

End If

fBreakVal = fBreakVal + oStats.StdDev

.SizeSymbols 3, 8 '设置点图渐变大小

'设置渐变颜色,也可使用.Symbol(0).设置具体样式

.RampColors moLimeGreen, moRed

End With

Map1.Refresh

End Sub

48.标准标注(LabelRenderer)

Private Sub Command1_Click()

Dim oLayer As New https://www.wendangku.net/doc/2f18342632.html,belRenderer

Dim oFnt0 As New StdFont

Dim oFnt1 As New StdFont

Dim oFnt2 As New StdFont

oFnt0 . Name = "Arial"

oFnt1 .Name = "Courier New"

With oLayer

.Field = "NAME"

'设置分级标注

.LevelField = "CITLES_"

.MinLevel = 8

.MaxLevel = 13

'分组设置每一个数组下标值对应属性表中数据的实体的字体属性'只能选用数据型的，也可以不选用分组用.Symbol(0)设置字体属性.SymbolField = "CITIES_"

.SymbolCount = Text1.Text

Set .Symbol(1).Font = oFnt1

.Symbol(1).Color = moBlue

Set .Symbol(2).Font = oFnt2

.Symbol(2).Color = moDarkGreen

End With

https://www.wendangku.net/doc/2f18342632.html,yers(0).Renderer = oLayer

Map1.Refresh

End Sub

49.高级标注(LabelPlacer)

Private Sub Command1_Click()

Dim oLayer As New https://www.wendangku.net/doc/2f18342632.html,belPlacer

With oLayer

.Field = "NAME"

'分组

.ValueCount = Text1.Text

.ValueField = "CITIES_"

'设置各组字体属性

.Value(0) = 2 '独立值

.Symbol(0).Color = vbRed

End With

https://www.wendangku.net/doc/2f18342632.html,yers(0).Renderer = oLayer

Map1.Refresh

End Sub

50.图表渲染(ChartRenderer)

Dim Cr As New MapObjects2.ChartRenderer

Private Sub Option1_Click()

If Option1.Value = True Then

Cr.ChartType = moPie

End If

End Sub

Private Sub Option2_Click()

If Option2.Value = True Then

Cr.ChartType = moBar

End If

End Sub

Private Sub Map1_BeforeLayerDraw(ByVal index As Integer, ByVal hDC As Stdole.OLE_HANDLE) Dim i As Integer, ctr As Integer

Select Case Cr.ChartType 'heights, widths, and sizes are somewhat arbitrary

Case moBar’柱图

Cr.BarHeight = Map1.Height * 0.005

Cr.BarWidth = Map1.Width * 0.003

Case moPie’饼图

Cr.MinPieSize = Map1.Height * 0.001

Cr.MaxPieSize = Map1.Height * 0.004

End Select

For i = 0 To List1.ListCount - 1

If List1.Selected(i) = True Then

ctr = ctr + 1

With Cr

.FieldCount = ctr

.Field(ctr - 1) = List1.List(i)’设置字段数组

.Color(ctr - 1) = QBColor(ctr + 7)

End With

End If

Next i

End Sub

51.点密度渲染(DotDensityRenderer)

Private Sub Command1_Click()

Dim oDotRend As New MapObjects2.DotDensityRenderer

Set https://www.wendangku.net/doc/2f18342632.html,yers(0).Renderer = oDotRend

With oDotRend

.Field = "Area"

.DotSize = 3

.DotColor = moRed

.DotValue = 1

.DrawBackground = True

End With

Map1.Refresh

Set oDotRend = Nothing

End Sub

52.Z值渲染(Zrenderer)

’和ClassBreakRenderer对象类似

Private Sub Command2_Click()

Dim Zren As New MapObjects2.ZRenderer

With Zren

.BreakCount =2

.Break(0) = 600

.Break(1) = 700

.SymbolType = moPointSymbol

For i = 0 To .BreakCount

.Symbol(i).Color = QBColor(i + 8)

.Symbol(i).Style = moTriangleMarker

.Symbol(i).Size = i + 4

Next i

End With

Set https://www.wendangku.net/doc/2f18342632.html,yers(0).Renderer = Zren

End Sub

53.组合渲染(GroupRenderer)

Private Sub Command3_Click()

Dim GroupRend As New MapObjects2.GroupRenderer

GroupRend.Add ClassRend

GroupRend.Add CharRend

https://www.wendangku.net/doc/2f18342632.html,yers("states").Renderer = GroupRend

Map1.Refresh

End Sub

54.表格渲染（不关联用表格中数据）

tbl.Database = "dbase iv; database=" & dConn.Database

https://www.wendangku.net/doc/2f18342632.html, = LINEAR_TABLESet evrend = New MapObjects2.EventRenderer With evrend

.SymbolType = moLineSymbol

Set .EventTable = tbl

.DrawBackground = True

.FeatureRouteIDField = "rkey"

.EventRouteIDField = "rkey"

.StartMeasureField = "fmp"

.EndMeasureField = "tmp"

.SymbolField = "rideq"

.ValueCount = 3

.Value(0) = "L"

.Symbol(0).Style = moSolidLine

.Symbol(0).Size = 2

.Symbol(0).Color = GetNewColour

.Value(1) = "M"

.Symbol(1).Style = moSolidLine

.Symbol(1).Size = 2

.Symbol(1).Color = GetNewColour

.Value(2) = "N"

.Symbol(2).Style = moSolidLine

.Symbol(2).Size = 2

.Symbol(2).Color = GetNewColour

End With

If evrend.IndexEvents Then

StatusBar1.SimpleText = "Please wait, indexing events..."

StatusBar1.Refresh

End If

Set lyr.Renderer = evrend

54.用Move方法画动态GeoEvent

Map1.TrackingLayer.Event(i).Move x,y

55.加载栅格图层

’加载之前应有自定义转换文件，自定义文件名应与栅格文件同名并放在同一文件夹下，后缀为栅格文件后缀的第一个字母＋最后一个字母＋再加上“w”。

dataDir = App.Path + "\..\" + "Washington"

Dim iLayer As New ImageLayer

iLayer.File = dataDir + "\Wash.bmp"

https://www.wendangku.net/doc/2f18342632.html,yers.Add iLayer

56.栅格图层转换公式

x’=Ax+By+C

y’=Dx+Ey+F

Ａ：x系数，为像素的尺寸;

Ｅ：y系数，由于两种格式在y反向，其值为负;

Ｂ、Ｄ：旋转系数，在ＭＯ中不可设置;

Ｃ：x方向系数;

Ｆ：y方向系数。

这些系数保存在一个ASCII码形式的转换文件中，按Ａ、Ｄ、Ｂ、Ｅ、Ｃ、Ｆ的顺序保存。文件名与图像文件名相同后缀为图像后缀的第一个字母＋最后一个字＋“Ｗ”。

57.设置透明图层

https://www.wendangku.net/doc/2f18342632.html,yers(0).Transparent = True

https://www.wendangku.net/doc/2f18342632.html,yers(0).TransparentColor = vbred’设置透明的颜色

58.IsProjected判断图层采用的坐标系统

Private Sub Command1_Click()

Dim coordSys As Object

Dim myLayer As MapObjects2.MapLayer

Set myLayer = https://www.wendangku.net/doc/2f18342632.html,yers(0)

Set coordSys = myLayer.CoordinateSystem

If coordSys.IsProjected Then

MsgBox "图层为投影坐标系！"

ElseIf Not coordSys.IsProjected Then

MsgBox "图层为地理坐标系！"

End If

59.坐标系的读取和设置

’读取

https://www.wendangku.net/doc/2f18342632.html,

Layer.CoordinateSystem.Type

’设置

Dim mapGCS As New Mapobjects2.GeoCoordSys

mapGCS.Type = "4326"

Map1.CoordinateSystem = mapGCS

60.坐标系的改变

Private Sub Command1_Click()

Dim CSMap As Object

Set CSMap = New MapObjects2.ProjCoordSys

CSMap.Type = 54019 'World_Winkel-Ⅱ

Map1.CoordinateSystem = CSMap

End Sub

Private Sub Command2_Click()

'GCS_WGS 1984 (4326)

Map1.CoordinateSystem = https://www.wendangku.net/doc/2f18342632.html,yers(0).CoordinateSystem.Type

End Sub

61.设置自定义坐标系

Private Sub Command1_Click()

Dim theGcs As New MapObjects2.GeoCoordSys

Dim theUnit As New MapObjects2.Unit

Dim thePrime As New MapObjects2.PrimeMeridian

Dim theDatum As New MapObjects2.Datum

theUnit.Type = Int(stripProjection(Combo1.List(Combo1.ListIndex)))

theGcs.Unit = theUnit

thePrime.Type = Int(stripProjection(Combo2.List(Combo2.ListIndex)))

theGcs.PrimeMeridian = thePrime

theDatum.Type = Int(stripProjection(Combo3.List(Combo3.ListIndex)))

theGcs.Datum = theDatum

Dim report As String

report = "地理坐标系" & https://www.wendangku.net/doc/2f18342632.html, & "有:" & vbNewLine & _

"Units: " & https://www.wendangku.net/doc/2f18342632.html, & vbNewLine & _

"PrimeMeridian: " & https://www.wendangku.net/doc/2f18342632.html, & vbNewLine & _

"Datum: " & https://www.wendangku.net/doc/2f18342632.html,

MsgBox report, vbInformation, "自定义坐标系对象"

End Sub

62.MO坐标转换方法介绍

Object.ToMapDistance distance’把控件中的一段距离从设定单位转换为地图单位

Set variable=Object.ToMapPoint (xControl,yControl)’把控件上一个点单位转换为地图单位Object.FromMapDistance distance’把一段距离从地图单位转换为控件单位

Object.FormMapPoint MapPoint,xControl,yControl’把地图上的一个点从地图单位转换成设定

怪字

怪字“丨”“灬”未入日常字典台湾字典可查到 2012年05月16日08:24 来源：新京报作者：范春旭石明磊核心提示：近日，网友发帖称，发现生僻字“丨”、“丶”“灬”并未收录在日常字典中。但在明代所编纂的《正字通》，台湾出版的东方《国语辞典》中，均查到了这些生僻汉字，读音、释义。回想前段时间被热议的汉字笔顺调整一事，汉字的秘密不可穷尽…… 专家称《新华字典》只收录常用及规范字；未收录不证明“非汉字” 新京报讯（记者范春旭石明磊）近日，网友发帖称，发现生僻字“丨”、“丶”“灬”并未收录在日常字典中，这些字是否有收录价值，引发网友讨论。网友怪字未收入现代字典前日，一微博网友发帖称：我才发现原来“丨”是一个字啊！念“滚”啊。网帖引发众多网友好奇，并跟进搜索出“丶”“灬”等字并标注读音以及释义。网友称，这些看似偏旁部首的“怪字”，竟然也是汉字。很多网友认为，既然这些都是汉字，为何在《现代汉语规范辞典》、《新华字典》这样的常用字典中查询不到，但在电脑的语言输入工具中，却可以查询到。字典收藏爱好者付先生，查询了所收藏的30多个版本字典，在明代所编纂的《正字通》，台湾出版的东方《国语辞典》中，均查到了这些生僻汉字，读音、释义。专家 “怪字”为“衍生品” 国家语言文字工作委员会研究员厉兵介绍，“丨”、“丶”“灬”是在文字演变过程中衍生的，在《汉语大字典》中都有收录，就说明他们是汉字，只是在古代典籍中没有使用例子，属于是极生僻字，或极罕用字，甚至是没有使用过的死亡字。厉兵介绍，各个字典的功能不同，所以在《现代汉语规范辞典》、《新华字典》等字典里，收录的是现代人文字交际中常用的汉字，多是现行规范字。这些字典收录一个汉字，要看它在现代汉语传播中，是否能用得上，以及是否常用。但是，这些字典没有收录的“怪字”，不代表“怪字”就不是汉字，只能说明这些“怪字”在现代汉语传播中不常用，或者用不上，但并不代表没有收录价值。厉兵介绍，《汉语大字典》、《正字通》等字典，收录的汉字更全面，尽量把在古代典籍中出现的汉字都收录其中，包括了一些现行规范字、异体字、罕用字、甚至音义不详的死亡字。

幼教学前数字,拼音,汉字笔画顺序汇总

幼儿学前数字描红、拼音、汉字笔画顺序汇总

汉语拼音字母表声母表 b p m f d t n l g k h j q x zh ch sh r z c s y w 韵母表单韵母：a o e i u ü 复韵母：ai ei ui ao ou iu ie üe 特殊韵母：er 前鼻韵母：an[安] en[恩] in[因] un[温] 后鼻韵母：ang[昂] eng[摁] ing[英] ong[雍]

整体认读音节：zi ci si zhi chi shi ri yi wu yu yin ying yun ye yue yuan 汉语拼音字母表双唇音：b p m 唇齿音：f 舌尖音：d t z c s n l 翘舌音：zh ch sh r 平舌音j q x 舌根音g k h 音节分两拼音节（声母和韵母）和三拼音节（声母、介母、韵母）三拼音节（9个）：ia ua uo uai iao ian iang uang iong 三拼音节是指由声母+介母+韵母拼成的音节

er既不是三拼音节又不是整体认读，而是零声母音节声介合母(介母)：bi pi mi di ti ni li ji qi xi du tu nu lu gu ku hu zhu chu shu ru zu cu su lv nv jv qv xv 音节中，声母和韵母中间的i和u称为介母 i、u、ü还可做三拼音节中的介母，介于声母、韵母之间，和声母、韵母一起组成音节，如“选xuǎn管guǎn家jiā”音节中的ü、u、i是介母。这样的介韵组合一共有11个，教学中可引导学生发现以下规律：介母是i的：iɑ、iɑn、iɑng、iɑo、iong。介母是u的：uɑ、uɑi、uɑn、uɑng、uo。介母是ü的：üɑn。老大ɑ开头的韵母前面可以有介母的一共有9个，而老二o开头的韵母前面可以有介母的只有2个（iong 和uo），其他四兄弟e、i、u、ü都不和介母一起组成音节。汉语拼音字母表

难读汉字查拼音表(按笔画为序)

难读汉字查拼音表(按笔画为序) ------1 画------ 丿pie ------2 画------ 孑jie 孓jue 乜mie 厶si ------3 画------ 亍chu 乇tuo 尢wang 囗wei ------4 画------ 仂le 亓qi 爿pan 殳shu 闩shuan 刈yi 爻yao 仄ze 仉zhang ------5 画------ 仨sa 讦jie 邝kuang 叻le 庀pi 氕pie 卮zhi 仫mu 劢mai 邙mang 忉dao 宄gui 弁bian 刍chu 仟qian 邗han 阢wu 艽jiao 尻kao 尥liao 疋pi 仡ge 邛qiong 仝tong 艿nai 尕ga 氐di ------6 画------ 仵wu 劭shao 圯yi 芏du 犴an 纥ge 闫yan 伧cang 邡fang 圮pi 芎xiong 犸ma 纡yu 艮gen 佤wa 阱jing 圹kuang 芑qi 犷guang 厍she 乩ji 伛yu 邴bing 扪men 汊cha 舛chuan 牝pin 囝jian 仳pi 汆cuan 芄wan 汜si 玎ding 饧tang 凼dang 讵ju 氽tun 芗xiang 夼kuang 妁shuo 孛bei 聿yu 冱hu 汞gong 茑niao 屺qi 纩kuang 氘dao 囟xin ------7 画------ 佗tuo 陉xing 苊e 呔dai 忻xin 绀gan 妗jin 欤yu 佧ka 坜li 苎ning 吡bi 忾kai 杌wu 妩wu 豕shi 诖gua 圻qi 苡yi 吲yin 怆chuang 杩ma 妣bi 卣you 诌zhou 坩gan 芪qi 呖li 怃wu 杓biao 妫gui 奁lian 诋di 坌ben 芫yan 呋fu 忮zhi 轫ren 姒si 兕si 诎qu 佥qian 苣ju 岙ao 忤wu 迓ya 妤yu 诂gu 芴wu 芰ji 岜ba 忭bian 迕wu 疔ding 诒yi 芟shan 芾fei 岍qian 呃e 刭jing 闳hong 邰tai 苈li 芡qian 岈ya 呓yi 旰gan 闶kang 阽dian 芤kou 沣feng 岘xian 吣qin 肜rong 闱wei 邶bei 苷gan 沩wei 岣gou 呙guo 肟wo 氚chuan 阼zuo 苁cong 沆hang 岫xiu 劬qu 钌liao 芈mi 邳pi 芘bi 泐le 饩xi 纰pi 钇yi 町ding 陂bei 苌chang 沂yi 饬chi 纶lun 庑wu 甙dai 邸di 苋xian 沔mian 饫yu 绁xie 庋gui 奂huan 邬wu 芩qin 沅yuan 饪ren 狃niu 狁yun 肓huang ------8 画------ 侉kua 郄qie 苴ju 呸pei 绎yi 昃ze 砀dang 鸨bao 佻tiao 籴di 茔ying 帙zhi 绋fu 炅gui 矾fan 鸩zhen 佾yi 坭ni 苒ran 帑tang 绂fu 昀yun 盱xu 鸠jiu 侑you 坫dian 苤pie 帔pei 驺zou 昕xin 畎quan 瓯ou

三年级汉字规范书写比赛试卷答案

班级：_________姓名：考号：_________ 一、看拼音写词语。（40分，每词2分，词语错一字不得分。） lüè guòchéng rèn fèn nùtuòmo （掠过）（承认）（愤怒）（唾沫） cǎo diàn quán tou yèmùshū cài （草垫）（拳头）（夜幕）（蔬菜） fán zhínián líng yóu yùshuāi dǎo （繁殖）（年龄）（犹豫）（摔倒） píláo shèmiǎn xiāng qiàn dǒu qiào （疲劳）（赦免）（镶嵌）（陡峭） fèi xūqián kūn fěi cuìniǔ kòu （废墟）（乾坤）（翡翠）（纽扣）二、笔顺笔画。（20分）（一）、请写出下列汉字的笔顺。（每字2分，错一笔不得分。） ?每：_撇，横，竖折，横折钩，点，横，点 ?丑：___________横折、竖、横、横。 ?甘：_横，竖，竖，横，横龙：横、撇、竖弯钩、撇、点、瓶：点、点、横、横、撇、竖、横、竖提、横折弯钩、点、____ （二）、写出下列汉字的笔画数。（每空1分。） 1.“瑰”字共有（13 ）画，最后一笔是（点）。 2.“渐”字共有（11 ）画，第六笔是（竖）。 3.“霞”字共有（17 ）画，第三笔是（横钩）。 4.“燕”字共有（16 ）画，第六笔是（横折）。 5.“藏”字共有（17）画，第六笔是（竖折）。三、汉字组字。 1.偏旁组字。（每写对2字得1分。）衤：_ 补、被、初、袄、衬、衫、袜、裤、褐、裕、衩、衲、袖、袍、裙、褂、裸、袱、袴、裆、衪、衱、衧、衦、纟：纠红纡纣纤纥约级纨纩纪纫纶纼纹纭纴纱纬纯纰纲纳纵纷纸纺纽纾纮纻经练线绂绀绁组绅细织终绉绊绋绌绍绎绐绔绑绒结绕绗绘给绚绛络绝绞统绖绤绠绡绢绣绥绦继绨绸绱绪绹绻综绽绾绿缀缁缍绬绩绫续绮绯绰绲绳维绵绶绷绺女：奴奶如妆妁妄奼她奺妅奷奾妈妃奸妀妇好妔妌妨妜妟妣妩妐妢妏妥妓妘妊妖妉妛妋妠妍姂妆姊妒妎妤姉妚妞妙妗妾姓妼妴妹妻妱姗姁妷你妿姆委妰姀姄姈姃姎姅姏妸妮始妶姗姑妽妯妲妭妺姐妵姌姇姧姾姴姵姞姳娂姛姟姙姭姷姕娅姤娇娀姶姣娍奸姻姠娈娗姢姺威姜姲姱姰娫姡姝娆姮姯姿姥婙姽姹姩姫姼娜娰姨侄姚娃三年级汉字规范书写比赛试题

五格汉字按笔画五行画

五格汉字按笔画五行-画 1画【土】一(yi) 乙(yi) 2画【火】刁(diao) 丁(ding) 二(er) 力(li) 了(liao) 乃(nai) 【金】匕(bi) 刀(dao) 人(ren) 入(ru) 厶(si) 【水】勹(bao) 卜(bu、bo) 乜(mie) 【土】又(you) 3画【火】彳(chi) 大(da) 孓(jue) 女(nv、ru) 勺(shao) 巳(si) 乇(tuo) 幺(yao) 弋(yi) 丈(zhang) 【金】才(cai) 叉(cha) 亍(chu) 川(chuan) 寸(cun) 千(qian) 刃(ren) 三(san) 上(shang) 尸(shi) 士(shi) 夕(xi) 小(xiao) 【木】干(gan) 工(gong) 弓(gong) 丌(ji、qi) 及(ji) 孑(jie) 巾(jin) 久(jiu) 口(kou) 廿(nian) 乞(qi) 彡(xian) 已(yi) 【水】凡(fan) 亡(wang) 下(xia) 子(zi) 【土】己(ji、qi) 山(shan) 土(tu) 丸(wan) 兀(wu) 丫(ya) 也(ye) 尢(you)

于(yu) 4画【火】尺(chi、che) 丹(dan) 吊(diao) 仃(ding) 斗(dou) 火(huo) 井(jing) 仂(le) 内(nei) 日(ri) 太(tai) 天(tian) 屯(tun、zhun) 午(wu) 爻(yao) 仉(zhang) 之(zhi) 支(zhi) 止(zhi) 中(zhong) 【金】仇(chou、qiu) 乏(fa) 戈(ge) 仁(ren) 仍(reng) 冗(rong) 少(shao) 升(sheng) 什(shi) 氏(shi) 手(shou) 殳(shu) 四(si) 兮(xi) 心(xin) 刈(yi) 仄(ze) 爪(zhua、zhao) 【木】卞(bian) 丐(gai) 公(gong) 勾(gou) 介(jie) 今(jin) 斤(jin) 亢(kang) 孔(kong) 木(mu) 牛(niu) 亓(qi) 欠(qian) 犬(quan) 牙(ya) 元(yuan) 月(yue) 匀(yun) 【水】巴(ba) 比(bi) 不(bu、fou) 歹(dai、e) 反(fan) 方(fang) 分(fen) 夫(fu) 父(fu) 互(hu) 户(hu) 化(hua) 幻(huan) 毛(mao) 爿(pan) 匹(pi) 片(pian) 壬(ren) 卅(sa) 水(shui) 文(wen) 毋(wu) 勿(wu) 【土】厄(e) 切(qie) 王(wang) 卬(ang) 夭(ao、yao) 尹(yin) 引(yin) 尤(you) 友(you) 予(yu、zhu) 曰(yue) 允(yun) 5画【火】丙(bing) 代(dai) 旦(dan) 叨(dao、tao) 氐(di) 叮(ding) 冬(dong) 叻(le) 立(li) 尥(liao) 令(ling) 另(ling) 奶(nai) 尼(ni) 奴(nu) 冉(ran) 他(ta) 它(ta) 田(tian) 仝(tong) 仗(zhang) 召(zhao) 只(zhi) 左(zuo)

香港的英文名香港拼音和汉字对照

香港的英文名,香港拼音和汉字对照香港的英文名，香港拼音和汉字对照。【A】 AH 亚 AH 雅 AU 区 AU 欧【B】 BIK 碧 BIK 璧 BING 丙 BING 冰 BING 秉 BING 炳 BIT 必 BONG 邦 BUN 斌【C】 CHAI 仔 CHAI 齐 CHAI 齐 CHAK 翟 CHAK 泽 CHAM 湛 CHAN 陈 CHAN 灿 CHAN 璨 CHAN 镇 CHAN 赞 CHAN 瓒 CHANG 郑 CHAT 七

CHAU 周CHAU 洲CHAU 秋CHAU 邹CHEN 陈CHENG 郑CHEONG 张CHEONG 章CHEUK 灼CHEUK 卓CHEUK 卓CHEUK 棹CHEUK 绰CHEUK 焯CHEUNG 昌CHEUNG 长CHEUNG 张CHEUNG 祥CHEUNG 掌CHEUNG 翔CHEUNG 象CHEUNG 璋CHEUNG 蒋CHEUNG 锵CHI 子CHI 之CHI 次CHI 池CHI 志CHI 枝CHI 知CHI 芝CHI 芷CHI 姿CHI 祉CHI 致CHI 戚CHI 梓CHI 智CHI 紫CHI 慈CHI 志CHI 赐

CHIANG 张CHICK 戚CHIGN 净CHIK 戚CHIK 绩CHIK 积CHIN 前CHIN 展CHIN 钱CHIN 钱CHIN 芊CHING 正CHING 呈CHING 青CHING 政CHING 贞CHING 情CHING 清CHING 晴CHING 晶CHING 程CHING 程CHING 菁CHING 靖CHING 精CHING 澄CHING 静CHIT 哲CHIU 肖CHIU 招CHIU 俏CHIU 昭CHIU 钊CHIU 钏CHIU 朝CHIU 超CHIU 照CHIU 赵CHIU 潮CHIU 霄CHO 祖CHO 曹CHO 袓

首届汉字听写大赛题目大全笔顺

首届汉字听写大赛题目大全（老师和家长都要收藏）甲胄jiǎ zhòu 古代将士的防护性兵器。雾凇wù sōng 俗称树挂。熨帖yù tiē 指用字、词等妥当、合适。（熨斗、熨烫中的熨读yùn）腭裂è liè先天性疾病。癞蛤蟆lài há ma 也叫蟾蜍。惴惴不安zhuì zhuì bù ān 形容因害怕或担心而不安。繁文缛节fán wén rù jié 过分繁琐的仪式或礼节。沟壑gōu hè 溪谷、山涧。分道扬镳fēn dào yáng biāo 比喻志趣目的不同而分别行事。攥拳头zuàn quán tou 握拳头。黏稠nián chóu 液体浓度高，有黏性，不易流动。三聚氰胺sān jù qíng àn 俗称密胺、蛋白精。瓮中捉鳖wèng zhōng zhuō biē形容手到擒来。枭首示众xiāo shǒu shì zhòng 斩首悬示于众。襁褓qiǎng bǎo 背负婴儿用的宽带和包裹婴儿的被子。溘然长逝kè rán cháng shì指忽然死去。摩羯座mó jié zuò 星座名称。桀纣jié zhòu 夏桀和商纣的并称。斧钺fǔ yuè 泛指兵器。貔貅pí xiū 古书上说的一种凶猛的野兽。嬷嬷mó mo 乳母或老年妇人。郫县豆瓣pí xiàn dòu bàn 四川省郫县特产。沉湎chén miǎn 潜心于某事物或处于某种境界或思维活动中。通牒tōng dié 一国通知另一国并要求答复的文书。辍学chuò xué 中途停止上学。墩布dūn bù 擦地工具。端倪duān ní 事情的头绪迹象。尔虞我诈ěr yú wǒ zhà 互相诈骗。禁锢jìn gù 关押，监禁。凋敝diāo bì 衰败的景象。天赋异禀tiān fù yì bǐng 有异于别人的奇特的天赋或特长。跋扈bá hù 霸道、蛮横、独断专行。皴裂cūn liè 皮肤因寒冷而冻裂。颐指气使yí zhǐ qì shǐ 形容有权势的人指挥别人的傲慢态度。囿于成见yòu yú chéng jiàn 局限于原有的看法。草菅人命cǎo jiān rén mìng 杀人如同除草，任意害人性命。蘸水钢笔zhàn shuǐ gāng bǐ 没有吸水管之类的储存墨水的钢笔。

一年级汉语拼音字母表带读音汉字,笔画表三音节

汉语拼音字母表天天向上辅导室 Aa Bb Cc Dd Ee Ff Gg Hh Ii Jj Kk Ll Mm Nn Oo pp Qq Rr Ss Tt Uu Vv Ww Xx Yy Zz 声母表 b [玻] p [坡] m [摸] f [佛] d [得] t [特] n [讷] l [勒] g [哥] k [科] h [喝] j [基] q [欺] x [希] z [资] c[雌] s [思] r [日] zh[知] ch [嗤] sh [诗] y [医] w [巫] 韵母表单韵母a[阿] o[喔] e[鹅] i[衣] u[乌] ü[迂] 复韵母ai[哀] ei[唉] ui[威] ao[奥] ou[欧] iu[由] ie[耶] üe[椰] er[儿] 前鼻韵母an[安] en[恩] in[因] un[温] ün [晕] 后鼻韵母ang[昂] eng[摁] ing[英] ong[雍] 整体认读音节：zhi chi shi ri zi ci si yi wu yu ye yue yuan yin yun ying 声调符号：阴平：- 阳平：/ 上声：∨去声：﹨ 三音节：i[衣] ia[呀] iao[腰] ian[烟] iang[央] iong[拥] u[乌] ua[蛙] uo[窝] uai[外] uan[弯] uang[往]

汉语拼音表

汉语拼音音节表 b ba bo bai bei bao ban ben bang beng bi bie biao bian bin bing p pa po pai pao pou pan pen pang peng pi pie piao pian pin ping m ma mo me mai mao mou man men mang meng mi mie miao miu mian min ming f fa fo fei fou fan fen fan g feng d da d e dai dei dao dou dan dang deng di die diao diu dian ding t ta te tai tao tou tan tang teng ti tie tiao tian ting n na nai nei nao no nen nang neng ni nie niao niu nian nin niang ning l la le lai lei lao lou lan lang leng li lia lie liao liu lian lin liang ling QQ空间代码g ga ge gai gei gao gou gan gen gang geng

汉字趣味常识50条,5分钟爱上汉字!(20210305081404)

1?汉字七体：甲骨文、金文、篆书、隶书、楷书、草书、行书 2?汉字的演变过程：甲骨文（商及商之前）一一金文（周）一一篆书（秦）一一隶书（汉）――楷书、草书、行书（汉末） 3?传说中，汉字起源于仓颉造字。黄帝的史官仓颉根据日月形状、鸟兽足印创造了汉字，造字时天地震惊----------- "而天雨粟，鬼夜哭”。 4?原始人类使用了结绳、刻契、图画的方法辅助记事，后来用特征图形来简化、取代图画。当图形符号简化到一定程度，并形成与语言的特定对应时，原始文字形成。 5.1994年，湖北杨家湾大溪文化遗址出土了大量陶器，其上170多种符号中，部分特征与甲骨文有较大类似之处。这一发现将原始汉字的形成过程推定到距今6000年以前。 6?山东大汶口出土的陶器上的象形符号，西安半坡彩陶上的几何符号等，都可能是原始文字形成中（或形成前）不同阶段的表现。 7?甲骨文汉字是世界上最古老的三大文字系统之一。其中，古埃及的圣书字、两河流域苏美尔人的楔形文字已经失传，仅有中国的汉字沿用至今。 8?商周时期的甲骨文已经是一种比较完整的文字体系。在已发现的4500多甲骨文单字中，目前已能认出近2000字。 9?与甲骨文同期，青铜器上铸造的文字称为金文或钟鼎文，西周时期的《散氏盘》、《毛公鼎》具备很高的史料和艺术价值。 10?秦始皇统一中国后，李斯在大篆和六国古文的基础上，进行规范和整理，制定出了小篆作为秦朝的标准书写字体，统一了中国的文字。小篆呈长方形，笔画圆润流畅。 11?从甲骨文到小篆，汉字经历了从象形文字到表意文字的发展过程，字形逐步脱离事物的具体形象。这一时期的汉字称为古文字。 12?到汉代，隶书取代小篆成为主要书体。隶书的出现，奠定了现代汉字字形结构的基础，成为古今文字的分水岭。 13?隋文帝杨坚原为隨（随）国公，但因“隨”字的“辶”有不稳定之意，故去掉“辶”，而造“隋”字作为国号。 14?唐朝时，武则天根据“日月当空”之意而造字“曌”（同“照”字）作为她的名字。 15?五代刘岩取“飞龍（龙）在天”之意创了自己名字内的“龑”字。 16?东汉许慎在《说文解字》中详细阐述了“六书”的汉字构造规律：象形、指事、会意、形声、转注、假借。

港式拼音hongkongpinyin

港式拼音 Hongkong Pinyin 这是Wade-Giles 拼法(威妥玛-翟理斯拼音法)。威妥玛拼法主要用于汉字的读音标注、中国地名名称和华人人名翻译。中国大陆地区自1950年代以后，随着汉语拼音方案的广泛推广，威妥玛拼法被停止使用，在中国大陆以外地区仍旧被广泛使用。在中国大陆，如果对中国人名等进行英译，一般使用汉语拼音。在港台和国外文献中，对于中国人名的英文表达方面，他们有时不使用国内的汉语拼音，我们要看懂这些英文所对应的汉语译名是什么，就可借助于这些资料。 AH 亚AH 雅AU 区AU 欧 BIK 碧BIK 璧BING 丙BING 冰BING 秉BING 炳BIT 必BONG 邦BUN 斌 CHAI 仔CHAI 齐CHAI 齐CHAK 翟CHAK 泽CHAM 湛CHAN 陈CHAN 灿CHAN 璨CHAN 镇CHAN 赞CHAN 瓒CHANG 郑CHAT 七CHAU 舟CHAU 周CHAU 洲CHAU 秋CHAU 邹CHEN 陈CHENG 郑CHEONG 张CHEONG 章CHEUK 灼CHEUK 卓CHEUK 卓CHEUK 棹CHEUK 绰CHEUK 焯CHEUNG 昌CHEUNG 长CHEUNG 张CHEUNG 祥CHEUNG 掌CHEUNG 翔CHEUNG 象CHEUNG 璋CHEUNG 蒋CHEUNG 锵CHI 子CHI 之CHI 次CHI 池CHI 志CHI 枝CHI 知CHI 芝CHI 芷CHI 姿CHI 祉CHI 致CHI 戚CHI 梓CHI 智CHI 紫CHI 慈CHI 志CHI 赐CHI 炽CHIANG 张CHICK 戚CHIGN 净CHIK 戚CHIK 绩CHIK 积CHIN 前CHIN 展CHIN 钱CHIN 钱CHIN 芊CHING 正CHING 呈CHING 青CHING 政CHING 贞CHING 情CHING 清CHING 晴CHING 晶CHING 程CHING 程CHING 菁CHING 靖CHING 精CHING 澄CHING 静CHIT 哲CHIU 肖CHIU 招CHIU 俏CHIU 昭CHIU 钊CHIU 钏CHIU 朝CHIU 超CHIU 照CHIU 赵CHIU 潮CHIU 霄CHO 祖CHO 曹CHO 袓CHOI 才CHOI 再CHOI 材CHOI 采CHOI 财CHOI 彩CHOI 载CHOI 蔡CHOI 赛CHOK 作CHONG 壮CHONG 庄CHONG 庄CHONG 创CHOR 佐CHOR 初CHOR 楚CHOR 础CHOW 周CHOW 邹CHOY 蔡CHU 朱CHU 柱CHU 珠CHU 曙CHU 焌CHUEN 川CHUEN 中CHUEN 全CHUEN 春CHUEN 泉CHUEN 传CHUEN 铨CHUI 徐CHUI 崔CHUI 隋CHUI 翠CHUI 趣CHUM 覃CHUN 俊CHUN 津CHUN 珍CHUN 振CHUN 晋CHUN 浚CHUN 真CHUN 秦CHUN 竣CHUN 进CHUN 隽CHUN 榛CHUN 臻CHUN 骏CHUN 椿CHUN 蓁CHUNG 仲CHUNG 冲CHUNG 宗CHUNG 忠CHUNG 松CHUNG 重CHUNG 从CHUNG 颂CHUNG 诵CHUNG 聪CHUNG 锺CHUNG 锺CHUNG 琮CHUNG 璁 DIK 迪DIK 荻DIU 吊 FAT 发FA 花FAI 晖FAI 辉FAN 帆FAN 芬FAN 范FAN 勋FAN 熏FANG 方FAT 佛FEI 飞FEI 菲FO 科FOG 霍FOK 霍FONG 方FONG 芳FOO 火FOO 伙FOO 符FOOK 服FOOK 福FOON 宽FOON 欢FORK 霍FU 芙FU 符FU 傅FU 富FUI 奎FUK 褔FUNG 丰FUNG 风FUNG 峰FUNG 烽FUNG 逢FUNG 冯FUNG 冯FUNG 枫FUNG 凤FUNG 锋FUNG 丰 HING 兴HA 夏HA 夏HA 霞HAN 闲HAN 娴HANG 行HANG 亨HANG 杏HANG 幸HANG 幸HANG 恒HANG 衡HANG 铿HANG 姮HANG 珩HANG 蘅HANG 恒HAU 口HAU 巧HAU 孝HAU 侯HAU 厚HAU 校HEI 希HEI 曦HEI 喜HEI 器HEI 熹HEI 羲HEI 禧HEI 曦HEI 浠HEUNG 向HEUNG 香HEUNG 香HIM 谦HIN 衍HIN 轩HIN 宪HIN 献HIN 骞HIN 显HING 卿HING 庆HING 罄HING 馨HIP 协HIU 晓HO 可HO 好HO 何HO 河HO 浩HO 荷HO 皓HO 贺HO 豪HO 濠HO 颢HO 灏HOI 海HOI 凯HOI 开HOI 爱HOI 恺HOI 垲HOI 铠HOK 学HOK 鹤HON 侃HON 汉HON 翰HON 韩HON 瀚HONG 匡HONG 航HONG 康HONG 康HOU 侯HSU 许HSUI 许HUANG 黄HUEN 萱HUEN 禤HUI 许HUI 昫HUNG

答字的读音是什么和它的解释

答字的读音是什么和它的解释本文是关于答字的读音是什么和它的解释，仅供参考，希望对您有所帮助，感谢阅读。答，读音[dá] [dā] 部首: 竹部外笔画: 6 总笔画: 12 五笔86: twgk 五笔98: twgk 仓颉: homr 笔顺编号: 3 四角号码: 88601 郑码: moaj Unicode: CJK 统一汉字 U+7B54 汉字首尾分解: ?合汉字部件分解: 竹人一口笔顺编号: 3 笔顺读写: 撇横捺撇横捺撇捺横竖折横答字的基本解释：答 [dá] 回话，回复：回～。对～。～辩。～复。～案。对～如流。受了别人的好处，还(huán )报别人：报～。～报。答 [dā] 义同(一)，用于“答应”“答理”等词。答 [dá] 〈动〉 (形声。从竹,合声。①本义:以竹补篱。②答谢,报答)

回话;应对 [reply;answer] 听言则答。——《诗·小雅·雨无止》既发则答君而俟。——《仪礼·乡射礼记》见渔人,乃大惊,问所以来。具答之。——陶潜《桃花源记》兰芝仰头答:“理实如兄言。”——《乐府诗集·古诗为焦仲卿妻作》渔歌互答。——宋·范仲淹《岳阳楼记》皆缄口不答。——清·纪昀《阅微草堂笔记》又如:应答如流;答教(预先写好的准备答问的书面文字);答言(用言语回答);答语(回答的话;应对的话) 报礼;报答。引申为酬答 [reciprocate(another's kindness,favor,etc.)] 适不答兹谓不次。——《仪礼·五行志》。注:“报也。” 因厚赂单于,答(报答)其善意。——《汉书·李广苏建传》又如:答施(报答恩惠);答效(报效;为报答恩德而为对方尽力) 〈形〉粗厚 [coarse and thick]。如:答布(粗厚的布) 另见 dā 答 [dā] ——义同“答”( dá),专用于“答应”、“答理”等词另见 dá

人教版小学一年级语文上册看拼音写汉字及单元测试题

人教版小学一年级语文上册看拼音写汉字及单元测试题人教版小学一年级语文上册看拼音写汉字机单元测试题人教版一年级上册看拼音写汉字第一、二单元看拼音写汉字班级：学号：姓名： bā sh r tǔ tiān xi tiān shnɡ shnɡ tiān y tiān m tou h mio d rn sān ɡ sh tiān b ɡ shnɡ xi li tiān rn rn d rn rn wn wn rn d huǒ xi rn shnɡ wn xi wn ɡ rn w rn jiǔ ɡ q shnɡ b xi

qī tiān rn kǒu r kǒu rn zhōnɡ r zi zhōnɡ shān xīn zhōnɡ r zi kǒu zi mn kǒu r zi d mn shnɡ mn m mn tiān zǐ jiǔ yu 第三，四单元看拼音写汉字、、班级：学号：姓名： kāi kǒu kāi mn kāi tu shnɡ tou zhōnɡ ěr tu m ěr m ɡ tu d mǐ m ěr m tou xi tou xi tou b jin kāi shuǐ bi mǐ shuǐ tin shuǐ din din zǐh tin bi tiān zhǎnɡ d zhnɡ zǐ chū mn

chū tu din chē mǎ chē kāi huǒ huǒ shān shān tu b shnɡ b xi yě sh chū r chū kǒu huǒ chē chē zi shān mn fēi niǎo fēi tiān v mǎ chē m mǎ bi mǎ mǎ shnɡ chē mn xi chē bi yn ɡōnɡ wn ɡōnɡ chē shnɡ chē第五，六单元看拼音写汉字班级：学号：姓名： ni mǎ shān ynɡ xio mǐ xiǎo zi xiǎo r sho r shǎo le shǎo jin chǐ zi tu jīn mo jīn mo tu ni mo ynɡ mo yu y mn y zhǎnɡ y zhǎnɡ mo bi mo d y mǐ chǐ xiǎo xīn rn xīn y xīn d fēnɡ fēnɡhuǒ w xīn kāi xīn d l chū l

河南汉字大赛选拔赛试题

汉字大赛选拔赛试题成绩：姓名: 一、单项选择题 1. 下列成语中没有错别字的一项是（） A. 以身作责B专心至志C提心吊胆 2. 山”的笔顺是（） A. 竖、竖折、短竖B竖折、竖、短竖C竖折、短竖、竖 3. 根据《简化字总表》，下列词组中用字全都符合规范标准的一组是（） A.烟雨濛濛B像雾像雨又像风C天翻地复 4. 下列各组字中，全部是独体字的一组是（） A.人、口、手、水B工、农、而、庆C门、也、习、杨 5. 下列各组词语中，书写规范的是（） A.家俱B惟一C成分D陷井 6. 下列三组词语中用字完全正确的一组是（） A.水天相联、对联、联欢B连续、联合、连忙C联跑带跳、联想、连累 7. 下列各组字中，每个字末笔都是撇”的一组是（） A.万、力、戈B芳、乃、伤C叨、匕、易 8. 下列三组中，母”的笔顺完全正确的是（） A.横折钩竖折点横点B竖折横折钩点横点

C.竖折横折钩横点点 9. 标志”不要误写作标识”依据的规范标准是（） A.《第一批异体字整理表》 B.《第一批异形词整理表》 10. 下列成语用字正确的一项是（） A.少壮不努力，老大徙伤悲B一言既出，驷马难追 C.失之东偶，收之桑榆D前事不忘，后世之师 11. 下列句子中，没有错别字的一组是（） A. 必竟人是必需各自飞行的，彼此能看一眼已是一剎又已是千年。 B. 这位老人看起来饱经风霜，面容苍桑。 C. 理想若真人人唾手可得，世上也就无所谓烦恼和痛苦了。 D. 他说了几句话，总算有个交待了。 12. 向来甲班和乙班的篮球赛总是十分精彩，两班实力在（）。 A.—发千钧B上行下效C伯仲之间D杵臼之交。 13. 貂ch a n”传说中的四大美女之一，她的名字的正确写法是（） A.貂禅B貂蝉C貂婵 14. 在这次抗震救灾工作中，非 ________ U组织发挥了积极的作用。”横线处应该选用的字是（） A赢B盈C营 15. 依据《中华人民共和国国家通用语言文字法》规定，下列（）情形应当以国家通用语言文字为基本的用语用字。 A.题词和招牌的手写字B公共场所的设施用字C文物古迹

Fjuedo日语入门基础知识

秋风清，秋月明,落叶聚还散,寒鸦栖复惊。日语入门基础知识一,关于假名曰文是由假名（分为平假名和片假名）、汉字、罗马字组成的。例：これは曰本语のテキストです。（译文：这是曰语课本）平假名这个句子中的“これは”、“の”、“です”就是平假名。平假名是曰语中很重要的一部分，它可以直接构成单词，如例中的“これ”（发音“kao lei”注：拼音）就是“这”的意思（相当于英语中的“this”）；の（发音“孬”）是“的”的意思，最后的“です”表判断，也就是“是”的意思。平假名也可以充当句子中的其它无具体意思的成份，如例中的“は”就是一个助词，用来分隔“これ”（这）和“曰本语”。另外，它还是曰文中汉字读音的基本单位，和汉语拼音的作用有点相似。片假名“テキスト”是片假名。片假名和平假名是一一对应的，读音相同，只是写法不同，你可以把它理解成英语中大写字母和小写字母的差别（但他们并不一是一回事，只是为了方便你的理解）。片假名主要用来构成西方外来语及其它一些特殊词汇。如例中的“テキスト”（发音“太Ｋ丝头”）的意思是“课本”，就是从英语单词“text”音译过来的。汉字例中的“曰本语”是汉字。“曰本语”就是“曰语”的意思了，但它的发音却不是中文发音了。“曰本语”的读音为“にほんご”（发音“你好恩高”）。在这里，假名“にほんご”就相当于曰语中汉字“曰本语”的拼音了（当然它并不是真正的拼音）。曰语中有很多汉字，它们大部与其汉语意思有关，但往往不同。句子结构的特点在例中，“です”是“是”的意思，这句话逐词翻译就是“这_曰语课本_是”。看到了吧，曰语的谓语是放在后面的。罗马字曰本球星“中田英寿”的英文名字叫作“Nakata”（球迷的话应该知道的吧？）那么这个英文名字是怎么“造”出来呢？其实“Nakata”是由曰语的又一组成部分——“罗马字”构成的。曰语中的每个假名相对应的都有一个“罗马字”，比如“Na”对应“な”，“ka”对应“か”，“ta”对应“た”，三个假名连起来“なかた”（发音“那卡它”）就是曰本姓氏“中田”的读音了。二.曰语中汉字的来历中曰两国使用的汉字，本来都是汉字的繁体字。但后来两都进行了文字改革，有的字我国简化了，曰本没有简化；有的字曰本简化了，我国没有简化。有的字两国虽都简化了，但简化的却不相同。所以要注意它们的区别。写曰语时，一定要写曰语汉字，不能写中文的简化汉字。曰本政府于1946年进行了一次文字改革，规定了一些汉字作为使用的范围，共有1850个，这叫做“当用汉字”。当用即“当前使用”或“应当使用”之意。这1850个之外的汉字不再使用，改以假名表记。但这只是政府的规定，仍还有人按习惯使用非当用汉字。1981年10月1曰，曰本政府又公布实行了“常用汉字表”，规定1945个常用汉字作为“一般社会生活中使用汉字的大致上的标准”。三.曰语中假名的来历

MO中常用的操作方法全

怪字

幼教学前数字,拼音,汉字笔画顺序汇总

难读汉字查拼音表(按笔画为序)

三年级汉字规范书写比赛试卷答案

五格汉字按笔画五行画

香港的英文名香港拼音和汉字对照

首届汉字听写大赛题目大全笔顺

一年级汉语拼音字母表带读音汉字,笔画表三音节

汉字趣味常识50条,5分钟爱上汉字!(20210305081404)

港式拼音hongkongpinyin

答字的读音是什么和它的解释

人教版小学一年级语文上册看拼音写汉字及单元测试题

最新语文基础知识拼音与汉字

河南汉字大赛选拔赛试题

Fjuedo日语入门基础知识

最新河南汉字大赛选拔赛试题

MO中常用的操作方法全

怪字

幼教学前数字,拼音,汉字笔画顺序汇总

难读汉字查拼音表(按笔画为序)

三年级汉字规范书写比赛试卷答案

五格汉字按笔画五行画

香港的英文名香港拼音和汉字对照

首届汉字听写大赛题目大全 笔顺

一年级汉语拼音字母表带读音汉字,笔画表 三音节

汉字趣味常识50条,5分钟爱上汉字!(20210305081404)

港式拼音hongkongpinyin

答字的读音是什么和它的解释

人教版小学一年级语文上册看拼音写汉字及单元测试题

最新语文基础知识拼音与汉字

河南汉字大赛选拔赛试题

Fjuedo日语入门基础知识

最新河南汉字大赛选拔赛试题

首届汉字听写大赛题目大全笔顺

一年级汉语拼音字母表带读音汉字,笔画表三音节