SHARE
TWEET

Untitled

a guest Sep 14th, 2017 91 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Private Sub  cmb_区分_LostFocus()
  2.  
  3. Select Case Me.cmb_区分
  4. Case 1
  5.   Me.Txt_摘要.IMEMode = acImeModeOff
  6. Case 2
  7.   Me.Txt_摘要.IMEMode = acImeModeHiragana
  8. End Select
  9.  
  10. End Sub
RAW Paste Data
Top